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ABSTRACT 

This  thesis  presents  a  high-resolution  stochastic  combat 
simulation  model  which  will  simulate  the  effects  cf  a 
persistent  chemical  agent  attack  0:1  a  ground  force  unit.  The 
model  is  suitable  for  inclusion  in  simulations  which  are 
capable  cf  tracking  individual  soldiers  and  delivery  muni- 
tions, and  can  prcvide  explicit  ground  and  air  agent 
concentrations. 

This  model  will  simulate  the  immediate  measures  taken  by 
a  soldier  in  response  to  a  direct  or  indirect  persistent 
chemical  agent  threat,  such  as  masking,  denning  protective 
clothing,  immediate  decontamination,  and  first  aid.  It  will 
compute  the  dosages  received  from  multiple  agents.  These 
actions  are  performed  in  response  to  probabilities  and 
probability   distributions   which   are   inputs   tc   the    model. 

This  thesis  includes  an  implementation  of  the  model 
written  in  the  SIMSCRIPT  II. 5  programming  language  for 
inclusion  in  the  Simulation  of  Tactical  Alternative 
Responses    (STAR)    model. 
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I-    INTRODUCTION 

The  renewed  interest  in  recent,  years  concerning  the 
problems  associated  with  chemical  warfare  has  sparked  an 
interest  in  modeling  the  phenomena  and  including  such  models 
in  various  analytic  combat  models  and  combat  simulations. 
Chemical  warfare  modelling  has  become  an  essential  adjunct 
to  combat  simulation.  Current  modelling  efforts  are  focused 
on  the  integrated  battlefield,  where  nuclear  and  chemical 
threats   aie    presented  alongside   conventional    battles. 

A  military  chemical  agent  is  a  toxic  substance  designed 
to  incapacitate  or  kill  and  may  be  dispersed  using  a  variety 
of  delivery  means,  predominantly  indirect  fire  artillery 
and  missile  systems.  The  chemical  agent  may  be  dispersed  as 
a  liquid,  vapor,  or  aerosol  and  can  be  classed  according  to 
it's  persistency  of  effectiveness  on  the  battlefield. 
Non-persistent  agents  are  designed  to  cause  casualties  by 
entry  into  the  body  through  the  respiratory  system.  They  are 
released  in  vapor  or  aerosol  form,  and  generally  present 
little  percutaneous  hazard.  Persistent  agents  are  designed 
to  create  casualties  through  absorption  into  the  skin.  They 
are  released  in  a  liguid  or  liquid  aerosol  form.  Persistent 
agents  will  generally  pose  an  inhalation  hazard  as  well, 
particularly  under    conditions   favoring   evaporation   [Bef.    1]. 

The  significance  of  the  persistency  classification  lies 
in  the  measures  necessary  to  protect  the  soldier  against 
chemical  effects,  and  the  duration  of  the  protection 
required.  Nonper sistent  agents  normally  require  only  the 
protective  mask  as  a  protective  measure,  and  the  duration 
of  effectiveness  is  measured  in  minutes  to  a  few  hours. 
Persistent  agents,  on  the  other  hand,  require  complete  body 
protection    and   the    effects    may    last      from    hours    to    days.      In 
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addition  to  requiring  protection  at  the  point  of  release  cf 
the  agent,  persistent  agents  will  contaminate  any  material 
coming  in  contact,  so  soldiers  who  leave  an  area  after  a 
persistent  agent  attack  remain  contaminated.  Once  contami- 
nated, they  must  remain  in  full  protection  for  a  period  of 
up  to  several  days  unless  the  contamination  is  removed 
through   decontamination. 

Unfortunately,  the  distinction  between  persistent  and 
nonpersistent  agents  is  not  clear  cut.  The  persistency  cf  a 
given  chemical  agent  depends  upon  its  physical  properties, 
the  means  cf  dissemination  (delivery)  ,  the  environmental 
conditions  at  the  delivery  area,  and  the  type  and  condition 
of  the  terrain,  equipment,  and  material  that  the  agent  falls 
upon.  Some  agents  ar=  classified  as  semi-persistent,  indi- 
cating that  they  may  be  tactically  employed  either  for  their 
inhalation  cr  percutaneous  effect  and  may  last  fcr  rela- 
tively short  or  long  periods  of  time  depending  upon  the 
factors  given  above.  The  only  true  nonpersistent  agents  are 
those  fcund  in  a  gaseous  state  under  normal  battlefield 
environmental  conditions.  These  include  most  blood  and 
choking  agents.  Generally  classed  as  persistent  agents  are 
the  blister  agents,  ?-series  nerve  agents,  and  thickened 
G-series  nerve  agents,  while  unthickened  G-series  nerve 
agents  are  often  classed  as  semi-persistent.  Again,  these 
classifications  may  change  under  different  conditions 
[Ref.    2]. 

Persistent  agents  create  the  most  problems  in  tactical 
situations  because  cf  the  problems  associated  with  the 
protection  required  and  with  contamination.  Persistent 
agents  may  be  employed  in  order  to  present  these  problems 
rather  than  to  cause  casualties  (although  casualties  are  an 
obvious  secondary  benefit).  They  may  be  employed  in  areas 
without    trocps    in  order   to    create   contamination. 
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A.        APPROACHES    TO    MODELLING    PERSISTENT    CHEMICAL    AGENTS 

There  have  been  several  approaches  taken  toward  modeling 
the  effects  of  chemical  agents  on  the  battlefield.  The 
traditional  approach  has  been  to  determine  aggregate  casual- 
ties (in  percentages)  to  a  unit  attacked  with  a  given  number 
of  chemical  munitions,  which  is  dependent  upon  parameters 
such  as  target  size,  type  of  agent  and  munition,  protection 
afforded  the  troops  and  environmental  conditions  at  the 
delivery  area.  This  approach  may  prove  useful  in  high-level, 
low  resolution  combat  models  where  the  basic  ccmbat  entity 
is  a  unit.  However,  it  ignores  some  significant  effects  of 
chemical  agent  employment  and  creates  problems  in  disaggre- 
gation in  models  where  individual  entities  or  small  groups 
such    as   crews  are   modeled. 

The  casualty  approach  ignores  the  effects  of  contamina- 
tion and  reduced  personnel  effectiveness  due  to  full 
chemical  protection.  It  was  mentioned  before  that  persis- 
tent agents  may  be  employed  to  produce  this  effect  rather 
than  casualties.  The  impact  of  persistent  chemicals  upon  the 
individual  soldier  is  discussed  in  more  detail  in  the  next 
chapter.  The  important  thing  to  realize  is  that  the  effects 
created  by  the  presence  of  a  chemical  agent  are  as  important 
as  the  effects  caused  by  the  agent  penetrating  the  body, 
causing  casualties  through  its  toxic  effect.  Models  in  the 
past  few  years  have  increasingly  included  the  chemical 
protective  level  as  a  fundamental  environmental  parameter 
and  have  included  the  effects  of  protection  and 
contamination  in   various   ways. 

The  percentage  casualty  approach  toward  modeling  chem- 
ical agent  effects  is  generally  unsuitable  for  low-level, 
high  resolution  models  that  track  individual  soldiers  as 
basic  ccmfca-  entities.  It  is  not  difficult  to  disaggregate 
when      all      of      the      individuals      in      a      unit      are      basically 
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interchangeable,  for  example,  in  a  dismounted  infantry 
company  (even  -here,  there  are  distinctions  between  -he 
weapons  employed).  However,  -he  scheme  becomes  harder  to 
apply  when  individuals  are  different;  for  example, 
distinguishing  between  the  driver,  loader,  gunner,  or 
commander  of  a  tank.  Stochastic  assignment  is  possible  but 
this  tends  to  ignore  differences  in  protection  between 
individuals.  As  a  result,  an  approach  that  measures  the 
effect  a  chemical  agent  will  have  on  each  individual,  based 
on  his  own  level  of  individual  and  collective  protection,  is 
more    suitable  for   high-resolution   simulation. 

When  considering  the  question  of  how  to  model  the  dosage 
received  from  a  chemical  agent,  two  approaches  present  them- 
selves. One  approach  involves  the  use  of  the  simulation 
event  scheduling  capability  of  the  SIMSCRIPT  language 
[Ref.  3].  As  each  initiating  event  occurred  {for  example, 
the  impact  of  a  chemical  round),  reactive  measures  could  be 
scheduled  as  a  result  of  this  event.  There  are,  however, 
several  prcblems  asscciated  with  this  aoproach.  If  the 
person  encounters  a  chemical  agent  as  a  cloud  or  when 
crossing  chemically  contaminated  terrain,  there  is  no  set 
time  at  which  he  may  detect  the  presence  of  the  chemical 
agent  and  react  accordingly.  As  a  result,  the  mcdei  would 
have  to  check  frequently  to  see  if  the  situation  favors 
scheduling  a  detection  event.  The  dosage  received  by  an 
individual  exposed  tc  a  chemical  agent  depends  upon  the 
times  at  which  the  individual  took  actions  to  reduce  that 
exposure;  for  example,  masking  and  decontaminating.  However, 
the  scheduling  of  these  events  may  depend  upon  the  dose 
accumulated  because  the  individual  may  first  detect  the 
presence  of  a  chemical  agent  when  he  shows  symptoms 
resulting  from  exposure.  Thus,  another  problem  with  this 
approach  is  the  interdependence  of  dosage  with  individual 
protective   reactions.      It   is   possible   to   handle    this   problem 
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by  updating  the  dosage  whenever  any  event  occurred  which 
would  affect  the  dosage  received,  such  as  masking,  etc. 
However,  a  periodic  update  would  still  have  to  be  scheduled 
to  check  if  the  dosage  accumulated  was  suf  f  icier,-1-  to 
initiate  events.  This  creates  another  problem,  which  is 
calculating  the  deposition  or  airborne  concentration  of 
agent  at  the  individual's  location.  If  an  event-initiated 
approach  is  used,  it  will  be  necessary  to  be  able  to  compute 
the  dosage  at  any  time  at  any  location.  Most  models  create 
an  entire  grid  of  deposition  when  called.  Thus,  either  this 
grid  would  have  to  be  called  repetitively  after  very  short 
xime  intervals  as  each  individual  had  a  triggering  event,  or 
an  individual  time  and  space  approximating  heuristic  would 
have    to    be    applied    between    periodic   updates. 

The  ether  approach,  which  has  been  adopted  in  this 
model, is  tc  conduct  a  check  of  every  individual  on  the 
battlefield  periodically  and  update  the  times  -hat  actions 
would  have  occurred  accordingly.  This  periodic  check  can  be 
scheduled  every  time  the  deposition  patterns  are  updated, 
negating  the  requirement  for  continuous  refreshment  of  the 
deposition  patterns.  The  update  examines  the  situation  as  it 
appeared  during  the  period  since  the  last  update  and  decides 
if  any  action,  such  as  detection,  should  have  occurred  in 
-hat  interval.  If  sc,  it  will  schedule  all  events  initiated 
by  that  detection  seguentially  into  the  future.  The  actions 
predicted  by  the  update  can  be  continuous  in  time.  The  only 
slippage  that  occurs  is  the  length  of  the  update  interval  -- 
which  should  be  relatively  brief.  The  times  of  actions  and 
reactions  must  bp  accessed  by  the  dosage  calculations,  and 
they  should  be  accessible  outside  the  module  for  use  in  the 
main  simulation.  In  order  to  accomplish  this,  the  times 
that  individual  reactive  protective  measures  are  taken  are 
assigned  tc  attributes  of  each  person.  This  attribute 
related   approach   also  allows   the   model   to   schedule   events   in 
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the  future,  in  -arms  of  assigning  a  future  time  value  to  an 
attribute.  These  values  can  be  accessed  at  a  later  time  and 
used    to    make   dosage    or  ether   calculations. 

B.       AS    OVERVIEW    OF    THE    PERSISTENT    CHEMICAL    EFFECTS    MODEL 

1 .      Capabilities    cf   the    model 

The  model  will  simulate  the  following  actions  taken 
in  response  to  a  chenical  hazard  or  which  will  occur  when  a 
persistent    chemical    agent   is   present: 

1.  Detection    of   the  chemical   agent,    from: 
a.    Chemical   agent   alarms    or    detectors. 

fa.    Presence   of    suspicious   physical    signs. 

c  „    Sam  dug    from      a   nearby    oerscr.      who    has      detected   the 

presence  of    a   hazard, 
d.    The   appearance  of   visible   symptoms. 

2.  Automatic    masking     and    increase    in      chemical    protection 
as    dictated   by    doctrine   and    training. 

3.  tasking  and   increases    in    chemical    protection    due    tc: 
a.    Orders. 

fc. .  Detection    of    the   chemical    hazard. 

4.  Seeking  or    creating   temporary  overhead   cover. 

5.  Immediate      individual         decontamination      of         skin      and 
clothing. 

6.  Injection      of      a     nerve      agent      antidote,        to      include 
wrongful  injection. 

7.  Changes  in    collective    protection. 

8.  Decay    cf  agent    due    tc    weathering. 

9.  Dosage   cf    chemical   agents    accumulated    internally,      as   a 
function  of: 

a.  Individual    protection. 

b.  Collective    prctection. 

c.  leakage     (if    any)    in    protection. 

d.  Decontamination. 

e.  First   aid  administered. 

16 


f.  Air   and    ground  concentration. 

g .  Agent   type. 

h.    Chemical   situation;       i.e.,    moving   or   stationary;      in 
area     of      direct      effects,        indirect      effects,        or 
contamination . 
i.    Time. 
10.    All   of   the    above  can   occur   in   a    multiple   agent    environ- 
ment.     The      maximum   number   of      expected   agents      must    be 
established   at    the   beginning  of    the   simulation. 

The  model  can  handle  many  different  combinations  of 
personnel,  equipment,  or  doctrine  by  varying  the  user- input 
parameters  which  establish  all  equipment  characteristics, 
probabilities  of  taking  alternative  actions,  and  distribu- 
tions of  times  of  actions  taken.  This  provides  a  large 
degree  of  flexibility  in  fitting  it  to  a  particular  main 
combat   simulation  and  a    scenario. 

The  model  provides  the  following  outputs  for  each 
individual   soldier    through    attributes: 

1.  Accumulated   dosage      for    multiple   agents,      updated      at  a 
user-defined   interval     (10    seconds   or   less) . 

2.  Individual      protection      status      for      7      different      body 
ar sas. 

3.  Collective    protection    status. 

4.  Threshold    dosage      for    each    different    agent      for    impair- 
ment,   incapacitation,    and    death. 

5.  Chemical   detection   status   of   individual. 

6.  Contamination    /   deposition   on   exterior   of   protection. 

7.  Leakage  rates    of   individual      protective   items    tc   liquid 
and   vapor    hazards. 

8.  Times    at   which      the    following   events    were      completed   or 
reached: 

a.  Latest    change    in   individual      and   collective    protection, 
for    each  item    of    protection. 

b.  Contamination    of  the   individual    or    his    vehicle. 

c.  Individual    decontamination. 
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d.  Th€   detection    of  a   chemical    hazard. 

e.  Nerve   agent   antidote  injection. 

f.  Reaching  the   impairment  or   incapacitation  threshold    for 
each   agent. 

g.  The    occurrence    cf  death. 

2  •      limitations 

The  model  is  limited  by  its  scope  and  some  of  the 
assumptions   made.    Some  salient    points    are   mentioned    here. 

The  model  dees  net  translate  the  actions  taken 
internally  to  the  main  combat  model.  An  interface  will  need 
to  be  made,  unique  to  each  implementation r  which  queries 
(through  attributes)  the  chemical  model  about  the  actions 
taken  and  the  times  at  which  those  actions  occurred  or  were 
completed.  This  information  should  be  used  to  affect  the 
combat  performance  cf  the  individual  in  the  main  simulation. 
A  possible  delay  of  up  to  DELT  seconds  (the  user-defined 
interval  at  which  the  model  is  called)  may  occur.  Most 
actions  are  scheduled  by  the  chemical  modal  to  occur  in  the 
future,  but  these  that  began  during  the  DELT  lock  back 
cannot  be  accessed  until  the  end  of  the  update.  For  example, 
the  model  determines  that  detection  occurred  at  the  previous 
update   time   TL;  masking    is   scheduled    and      is    completed   at 

time  TL  +8  seconds.  This  information  is  not  available 
until  TL  ♦  DELT  seconds  (the  current  time)  -  if  DELT  is  10 
seconds,  there  is  a  10  second  lag  in  the  detection  event  and 
a  2-seccnd  lag  in  the  masking  event.  This  delay  should  not 
normally  be  significant  but  this  is  the  reason  for  the 
recommendation    that    CELT   be    10   seconds   or    less. 

The  model  will  increase  the  level  of  chemical 
protection  automatically  but  will  not  decrease  it.  The 
reason  for  this  is  the  long  delay  after  contamination 
cccurs  before  it  is  safe  to  remove  protective  clothing.  It 
is    fairly      simple  to      have   the      protection   reduced      on    order 
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(see  the  chapter  on  model  enhancements)  but  the  decision 
logic  for  That  order  is  not  present  in  the  model.  In  fact, 
although  the  model  will  respond  to  directed  changes  in 
protection  the  procedure  for  making  that  decision  will  have 
to  be  modelled  separately  (it  has  not  been  included  -  this 
enhancement    is    probably   implementation-specific) . 

There  is  no  decontamination  beyond  the  immediate 
individual  decontamination  contained  in  the  model.  This  is 
suggested   as  an    extension    (see   Chapter   4). 

The  data  requirements  placed  on  the  user  form  both  a 
capability  and  a  limitation  or.  the  model.  On  one  hand,  the 
model  is  very  flexible  and  can  respond  in  many  different 
ways  as  desired.  This  makes  the  model  useful  for  a  variety 
cf  combat  simulations  and  scenarios.  However,  there  is  a 
significant  time  investment  involved  in  determining  the 
appropriate  parameters  and  some  information  may  not  be 
available.  Many  models  bypass  this  by  hard  coding  various 
assumptions  or  distributions.  This  permits  the  user  of  such 
a  model  to  avoid  the  effort  of  determining  these  parameters, 
but  forces  him  to  accept  the  hidden  assumptions.  The  user 
of  the  model  presented  in  this  thesis  may  make  the  simula- 
tion and  inputs  as  simple  or  as  complex  as  time  and 
resources   allow. 

-  •      i55del  Re  auirements 

The  model  described  in  this  thesis  is  a  high- 
resolutior.        model         designed        to  be        called        from        a 

high-resolution  combat  simulation.  It  can  be  implemented 
with    any    model    that: 

1.  Tracks    individual  soldiers  as  combat   entities. 

2.  Is  capable  of  describing  the  protection,  both  indi- 
vidual and  collective,  of  each  soldier  at  any  given 
time . 
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3.  Is  capable  of  identifying  the  time  and  location  of 
every  incoming  round  or  delivered  attack  (chemical  or 
conventional)  . 

4.  Is  capable  of  providing  a  pattern  of  chemical  agent 
deposition  and  cloud  spread  at  frequent,  periodic 
times. 

Although  not  a  requirement,  the  model  is  designed  to 
be  implemented  in  SIMSCRIPT  and  uses  the  attribute  and  set 
membership  capabilities  of  that  language.  A  specific  imple- 
mentation of  this  model  written  in  SIMSCRIPT  has  been 
included.  It  is  designed  to  be  used  as  a  module  within  the 
Simulation  of  Tactical  Alternative  Responses  (STAR)  model 
resident   at    the    TRADCC  Research   Element,    Monterey. 

a«      i   G§£§-E.£kiL    Explanation 

The  model  presented  in  this  thesis  is  designed  to 
predict  the  accumulated  dosage  of  chemical  agent  received  by 
any  individual  modeled  in  the  main  combat  simulation.  It 
models  the  actions  performed  by  an  individual  after  encoun- 
tering a  persistent  chemical  agent  hazard  from  any  source. 
The  model  will  simulate  both  immediate  threats  posed  by 
direct  chemical  attacks  upon  ground  troops,  and  residual 
hazards  pcs<=d  by  downwind  travel  of  chemical  agent  clouds 
and    contamination  of   terrain. 

The  model  requires  an  explicit  input  of  the  air 
concentration  in  milligrams  /  cubic  meter,  and  the  ground 
deposition  in  milligrams  /  square  centimeter  at  each  grid 
coordinate  at  each  update  time.  In  the  STAR  model,  this  is 
provided  by  a  modified  version  of  NOSSE  II  [  Ref .  4],  which 
provides  concentraticns  and  depositions  in  an  irregularly 
spaced  grid  pattern,  with  uniform  concentrations  assumed 
within  a  grid  square.  This  model,  or  one  like  it,  should  be 
called  to  update  the  ground  and  air  concentrations  at  each 
iteration. 
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The  initial  chemical  agent  effects  begin  at  the  time 
of  impact  of  a  chemical  munition  or  the  tima  of  dispersion 
of  agent.  Since  the  most  common  means  of  delivery  to 
front-line  positions  will  be  artillery,  and  since  it  is  the 
only  delivery  system  currently  modeled  in  STAR  capable  of 
delivering  chemical  agents,  artillery  is  the  assumed  means 
cf  delivery  for  the  purpose  of  alerting  troops  of  the 
possibility  of  an  attack.  Other  delivery  means,  such  as 
aerial  spray  and  chemical  mines,  can  be  modeled  in  terms  of 
their  chemical  effects,  and  the  delivery  can  be  aided 
without  too  much  effort  to  the  model  framework.  Enhancements 
to   the   basic  model    are  discussed    in    Chapter   4. 

The  area  of  direct  attack  is  considered  to  be  th*5 
area  within  which  trccps  may  react  to  the  attack  without  any 
indication  of  its  chemical /nonchemical  nature.  Within  the 
model,  it  is  defined  as  the  area  within  which  an  individual 
may  be  exposed  to  a  hazard  from  exploding,,  conventional 
munitions.  He  will  therefore  take  ordinary  protective 
measures,    sucn    as   hitting  the    ground    or   seeking   cover. 

The  remaining  areas  of  interest  are  the  areas  of 
initial  and  secondary  liguid  deposition  outside  of  the 
direct  effects  ellipse,  the  area  of  downwind  spread  from 
initial  attack  area,  and  the  areas  of  residual  contamina- 
tion. Possible  downwind  effects  from  residual  contamination 
are   assumed    negligible. 

The  model  is  designed  to  handle  simultaneously 
multiple  chemical  agent  classes.  The  deposition  for  each 
agent  and  accumulated  internal  dosages  are  computed  sepa- 
rately, with  no  interaction.  It  is  possible  to  increase  the 
time  required  to  decontaminate  two  or  more  agents  simultane- 
ously through  a  user-defined  parameter.  Synergistic  effects 
are  ignored,  but  reactions  will  occur  based  on  the  first 
agent    hazard  detected  or   suspected. 
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The  model  is  designed  to  simulate  the  reactive  meas- 
ures taken  by  two  or  more  sides.  The  logic  of  reacting  to  a 
persistent  agent  attack  -ends  to  be  the  same  regardless  of 
nationality,  as  described  in  Chapter  2  (Doctrine).  The 
probabilities  of  taking  several  different  alternative 
actions,  based  on  training,  doctrine,  and  the  situation,  are 
contained  in  user-input  global  variables  which  are 
dimensioned  by  the  number  of  sides.  Also,  descriptive 
variables,  such  as  alarm  thresholds  and  the  protection 
afforded  by  chemical  protective  garments  are  similarly 
dimensioned.  It  is  possible  to  play  two  sides  (e.g.,  RED  and 
BLJE)  or  more  than  two  (joint  exercises  involving  allied 
forces    with    different   doctrine   and/or    equipment)  . 

All  effects  are  computed  at  the  and  of  a  user- 
defined  interval  of  time  (on  the  order  of  10  seconds  or 
less).  All  individuals  on  the  battlefield  are  updated  each 
time;  events  that  occurred  within  the  interval  are  assigned 
absolute  times  of  occurrence  stored  in  attributes  of  the 
terse11.  Thes—  attributes  can  be  accessed  rxterr.al  to  the 
model  to  compute  the  effects  on  combat  performance  caused  by 
the    use    of    chemical    agents. 

When  a  given  round  or  volley  impacts  (or  ejects 
chemical  agent) ,  reactive  measures  taken  by  troops  exposed 
to  the  hazards  may  begin.  The  deposition  model  will  provide 
a  model  of  the  travel  of  agent  vapor  and  liquid  to  the 
ground    aid    downwind. 

In  general  terms,  the  model  does  the  following:  At  a 
set  time  interval,  a  routine  (CHEH. CHECK)  is  called  and 
performed  for  all  individuals  alive  on  the  battlefield.  The 
routine  checks  to  see  if  the  individual  has  been  exposed  to 
any  chemical  agent  hazard  since  the  last  update.  This  hazard 
could  be  from  a  chemical  attack,  movement  of  a  chemical 
cloud  over  the  individual's  position,  encountering  a  cloud 
or      contaminated  terrain      while      moving,         or   from      previous 
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contamination.  If  he  has  been  exposed  to  a  chemical  hazard, 
dosage  will  be  assessed  according  to  his  exposure  and 
protection  level  during  the  interval  sines  the  last  update. 
In  addition,  the  model  checks  to  see  if  the  individual  will 
react  to  the  chemical  agent  threat.  This  reaction  could  be 
initiated  by  a  conventional  attack  (due  to  doctrine),  the 
suspected  detection  of  a  chemical  agent  based  en  physical 
signs,  detector  paper  or  kits,  alarms,  nearby  soldiers 
detecting  the  agent,  or  the  appearance  of  symptoms.  The 
precise  actions  taken  will  be  dependent  upon  the  initiating 
event,  the  current  level  of  protection  (collective  and  indi- 
vidual) ,  and  the  doctrine  involved,  which  is  established  by 
setting  probabilities  upon  alternative  courses  of  action.  In 
addition,  seme  actions  may  automatically  trigger  others.  For 
example,  performing  decontamination  automatically  causes  the 
donning  cf  chemical  protective  gear  after  th?  completion  of 
decontamination . 

There  will  be  several  probability  distributions 
determining  the  time  at  which  a  unit  (person)  notices  the 
attack..  At  this  pcint,  the  given  individual  will  take 
protective  action  in  accordance  with  his  degree  of  protec- 
tion. Once  he  has  assumed  a  protective  posture,  he  can  warn 
others  nearby  of  the  attack.  The  detection  event  can  be 
triggered  by  chemical  agent  alarms  -  when  an  alarm  is  trig- 
gered, it  will  automatically  cause  all  persons  within  a  set 
distance  to  notice  the  attack.  The  actual  time  that  a  given 
individual  notices  the  attack  is  the  earliest  of  three  times 
-  the  time  he  would  have  noticed  it  by  himself,  the  time  a 
nearby  person  detected  the  attack,  or  the  time  a  nearby 
alarm  was  sounded.  The  latter  two  times  are  adjusted  for 
distance. 

The  major  effect  of  the  hazard  presented  by  the 
vapor  produced  by  a  chemical  agent  attack  will  be  to  change 
the      individual      and      collective      protection      categories      of 
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adjacent  units,  resulting  in  degradation  caused  by  the 
protective  gear  (not  modeled).  If  the  vapor  cloud  reported 
by  NUSSE  II  (or  some  equivalent  deposition  model)  travels  to 
a  unit  area  before  that  unit  has  increased  its  protective 
level  tc  at  least  the  minimum  required  to  prevent  the 
chemical  agent  from  entering  the  body,  then  the  model  will 
handle  dcsage  and  other  computations  as  if  the  unit  had  been 
attacked    with  the   appropriate    concentration   of  agent. 

Normally,  units  crossing  an  area  of  chemical  contam- 
ination will  assume  full  individual  protection  prior  to 
crossing  (cr  seal  themselves  within  vehicles  with  positive- 
pressure  filtration  systems) .  If  the  unit  assumes  such 
protection,  the  only  dosage  received  by  individuals  will  be 
that  resulting  from  leaks  in  the  chemical  protection  caused 
by  combat  hazards,  tears,  improper  decontamination  or 
donning,  etc.  The  vehicles  and  ail  persons  not  inside  sealed 
vehicles  will  be  regarded  as  contaminated  for  the  remainder 
of   the   simulation. 

The  amount  of  agent  picked  up  onto  vehicles,  equip- 
ment, and  personnel  can  be  set  through  a  user-defined 
parameter  to  be  a  percentage  of  the  deposition  on  the 
ground.  This  pickup  factor  is  used  whenever  the  unit  is 
passing  through  an  area  of  old  deposition;  if  the  agent  is 
still  falling  towards  the  ground,  the  unit  is  assumed  to 
receive   the   current    deposition. 

If  the  unit  dees  not  assume  chemical  protection 
prior  to  entering  the  contaminated  area,  then  individuals 
will  begin  to  receive  dcsage  as  soon  as  they  cross  the 
threshold  of  the  contaminated  area  (some  arbitrary  level 
will  have  tc  be  set  as  the  outer  limit  of  effective  contami- 
nation) .  At  some  pcint  they  may  notice  the  contamination 
(the  detection  process  being  similar  in  concept  to  noticing 
a  direct  attack)  and  take  the  same  protective  and  decontami- 
nation  measures    as    if  they    had    been    directly   attacked.    Delay 
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times  and  dosage  received  will  be  handled  using  the  same 
routines  used  for  the  direct  attack.  Some  assumptions  have 
been  made  regarding  the  amount  of  contamination  on  soldiers 
if  essentially  all  of  the  agent  has  settled  on  the  ground  at 
the   time   of    entering   the   area    (see  Chapter   3,    Section   B)  . 

When  actions  are  predicted  based  on  an  event  such  as 
a  detection  that  occurred  during  ths  interval  since  the  last 
chemical  update,  times  that  each  action  would  be  completed 
are  stored  in  attributes  of  the  person  involved.  These  times 
are  later  referred  to  in  the  present  or  future  iterations  of 
the  routine  to  figure  the  protection  available  to  the  indi- 
vidual for  dosage  calculations,  and  also  to  predict  the 
likelihood   cf   foliow-cn   events. 

The  model  does  not  attempt  to  translate  the  actions 
taken  by  the  individual  soldier,  or  the  dosage  received  by 
him,  into  actions  that  will  affect  the  main  combat  simula- 
tion. These  translations  would  be  model  specific.  For 
example,  a  soldier  cannot  fire,  acquire  targets,  etc.  during 
the  time  that  he  is  masking.  A  check,  needs  to  be  made  in  the 
routines  that  simulate  these  actions  in  the  main  simulation 
to  see  when  the  individual  dees  these  things  in  crder  for 
them  tc  affect  the  combat  processes.  The  model  does, 
however,  provide  the  necessary  information  for  such  transla- 
tion through  the  values  assigned  to  attributes.  These  times 
can  be  accessed  by  other  routines  in  the  main  simulation  to 
affect  other  combat  processes,  such  as  target  acquisition, 
movement,  etc.  Mso,  the  level  of  protection  can  be  changed 
external  tc  the  model  as  reaction  to  command  decisions, 
actions  affecting  other  elements  of  the  same  unit,  changes 
in  mission,  etc.  This  change  in  chemical  protection  is 
caused  by  accessing  an  attribute  that  stores  the  level  of 
protection  to  which  the  individual  must  go;  then  these 
changes  are  later  assigned  completion  times  in  the  same 
manner  as  if  they  were  in  reaction  to  a  real  or  perceived 
threat. 
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5-      Outline    of   Thesis  Documentation 

This  thesis  provides  documentation  of  the  basic 
model  and  also  its  i  n  pie  men  tat  ion  in  STAR.  The  next  chapter, 
Chapter  2,  describes  the  current  doctrine  for  reacting  to 
persistent  chemical  agent  attacks,  and  some  of  the  pertinent 
problems  that  the  model  must  address.  Chapter  3  outlines  the 
model  itself,  and  provides  the  logic  in  a  series  of  flow- 
charts. It  is  recommended  that  a  new  reader  interested  in 
the  model  capabilities  for  possible  implementation  read  only 
the  outlines  at  the  beginning  of  each  routine  description, 
and  then  skip  to  Appendix  3,  where  input  requirements  and 
instructions  are  stated.  Chapter  3  can  later  be  r<=ad  in  more 
detail   after  the   requirements   have   been    examined. 

Chapter  4  discusses  ocssible  model  enhancements  and 
extensions,  and  gives  recommendations  for  farther  modeling 
efforts. 

The  appendices  provide  the  detailed  information  on 
model  inputs  and  outputs,  to  include  user-defined  parameters 
and  general  definitions.  The  SIMSCRIPT  routines  for  the  STAR 
module  are  documented,  and  problems  unique  to  the 
implementation    of   this  model   in   STAR    are    discussed. 
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II,    DCCTRINE    FOR    REACTING    TO    PERSISTENT    CHEMICAL    AGENT 

ATTACKS 

The  doctrine  for  reacting  to  a  persistent  chemical  agent 
attack  is  largely  driven  by  logic.  The  immediate  reaction  of 
a  soldier,  regardless  of  his  training  or  nationality,  will 
bs  to  cover  all  areas  of  the  body  that,  are  susceptible  to 
the  toxic  effects  of  the  chemical  agent..  With  persistent 
chemical  agents,  this  means  covering  all  areas  of  the  body 
with  a  chemically-  impermeable  garment  as  well  as  protecting 
the   respiratory    tract   from    airborne    hazards. 

If  it  were  always  possible  to  detect  the  presence  of  a 
chemical  agent  before  there  was  any  significant  exposure  to 
it,  chemicals  would  not  pose  a  significant  threat  in  terms 
of  incapacitation  and  lethality.  However,  it  is  often  diffi- 
cult to  detect  the  presence  of  a  chemical  agent  from 
physical  signs  or  other  signatures  noticeable  to  the  unaided 
senses.  If  one  waits  to  react  until  symptoms  appear,  a  dose 
sufficient  to  cause  impairment  has  been  reached,  and  this 
impairment  may  delay  reaction.  It  is  also  possible  that  a 
severely  incapacitating  or  lethal  dose  of  agent  can  be 
absorbed   pricr    to   the   appearance    of   gross    symptcms. 

A  soldier,  therefore,  is  presented  with  a  dilemma.  On 
one  hand,  he  does  net  wish  to  react  prematurely,  as  the 
chemical  protective  garments  will  hamper  his  ability  to 
perform  combat  tasks.  Cn  the  other  hand,  he  wants  to  assume 
this  protection  prior  to  exposure  to  chemical  agents.  The 
tactical  doctrine  of  various  nations  has  evolved  to  try  to 
cope    with   this    dilemma. 

One  obvious  way  for  a  commander  to  be  able  to  minimize 
losses  due  to  persistent  chemical  agent  attacks  is  to  place 
all    soldiers  in      a    protective   posture   pricr      to   any    possible 
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attack.  However,  there  are  many  potential  drawbacks  to  doing 
this.  A  major  problem  in  moderate  to  ho-  temperatures  is 
heat  stress.  Due  to  the  semi-permeable  or  impermeable  nature 
of  chemically  protective  garments,  it  is  possible  to 
generate  a  significant  hear  load  while  wearing  them,  partic- 
ularly with  strenuous  tasks,  high  temperatures,  and 
humidity.  It  is  possible  for  heat  stress  to  cause  more  casu- 
alties on  a  battlefield  than  any  other  cause.  Additionally, 
there  is  soma  sensory  impairment  associated  with  chemical 
protective  gear,  particularly  the  mask.  Vision  and  hearing 
are  impeded;  eating  and  possibly  drinking  cannot  te  accom- 
plished while  wearing  the  mask.  Personal  hygiene  normally 
reguirss  removal  of  some  if  not  all  of  the  protective 
garments.  As  a  result,  there  is  a  tactical  tradeoff  between 
the  amount  of  protection  worn  during  periods  when  there  is 
no  immediate  threat,  and  the  mission  to  be  performed.  In  the 
United  States,  the  doctrine  associated  with  this  is  called 
the  Mission-Oriented  Protective  Posture  (MOPP)  ,  which 
directs  the  commander  to  establish  a  level  of  protection  for 
his  troops  based  on  his  perception  of  the  threat,  the  envi- 
ronment, and  the  tasks  to  be  performed  by  these  troops. 
Military  forces  cf  ether  nations  use  their  own  terminology 
but  all  recognize  the  existence  of  this  tradeoff  and  allow 
the  commander  to  specify  the  level  of  protection  for  his 
troops   within  doctrinal   guidelines  [fief.    5]. 

Cnce  a  protective  level  has  been  =stablishedf  there  are 
certain  tactical  situations  that  direct  a  soldier  to 
increase  his  level  of  protection  without  orders.  One  obvious 
situation  is  detecting  the  presence  of  a  chemical  agent. 
This  detection  may  be  reasonably  certain  or  merely 
suspected,  based  upon  the  detection  of  suspicious  signs  (to 
include  the  presence  of  smoke) ,  instruments  capable  of 
detection  such  as  alarms  and  detector  kits,  and  the  appear- 
ance   cf    symptoms.      However,       detection   may    occur    toe   late   to 
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prevent  exposure.  As  a  result.,  certain  other  tactical  situ- 
ations may  be  specified  by  doctrine  to  trigger  reactive 
measures.  Eecause  the  two  predominant  chemical  agent 
delivery  systems  are  artillery  and  aircraft,  soldiers  may  be 
directed  to  increase  protection  whenever  they  receive 
incoming  artillery  or  a  spray  or  bombiet  attack  by  aircraft 
[Ref.  6].  The  probability  of  this  reaction,  as  well  as  the 
extent  of  the  reaction,  can  be  established  explicitly  in  the 
model. 

After  the  individual  has  assumed  an  appropriate  level  cf 
protection,  if  he  has  reason  to  suspect  that  the  attack 
involved  a  persistent  chemical  agent  and  that  the  agent  is 
still  falling  toward  the  ground  (for  example,  a  spray  attack 
cr      an      indirect      fire      attack  where      the     agent      remains 

suspended  in  the  air  for  a  noticeable  period  of  time),  the 
soldier  must  seek  some  type  cf  overhead  cover  if  he  is  not 
alrsady  under  some.  Overhead  cover  can  oe  reached  by 
entering  a  vehicle  or  a  bunksr  ,  building,  or  other  fortifi- 
cation. If  such  cover  is  not  nearby,  cover  can  be  improvised 
by  covering  the  body  with  a  poncho,  shelter- half ,  chemical 
protective  cape,  or  other  such  material.  After  overhead 
cover  has  been  reached  or  created,  decontamination  can 
commence  if  necessary.  All  doctrine  normally  calls  for  the 
immediate  decontamination  of  exposed  skin.  In  addition,  if 
there  is  an  area  of  the  body  that  will  soon  be  covered  with 
a  chemical  protective  garment,  it  should  be  decontaminated 
also  to  prevent  trapping  agent  under  the  protective  garment. 
This  action  may  be  delayed  by  the  tactical  situation,  but 
normally  skin  decontamination  is  accomplished  immediately 
and  decontamination  of  clothing  and  gear  that  will  be 
covered  by  a  protective  garment  is  accomplished  shortly 
thereafter   [Eef.    7]. 
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It  is  apparent  that  there  is  a  decision  tc  be  made  by 
the  scldier.  If  he  suspects  that  he  has  been  contarainat =d, 
and  he  was  not  in  full  chemical  protection,  he  must  deconta- 
minate prior  to  assuming  any  protection  other  than  the 
protective  mask.  On  the  other  hand,  if  he  is  reacting  to  a 
situation  such  as  indirect  fire  where  immediate  contamina- 
tion is  not  suspected,  he  will  increase  his  protection 
without  decontamination.  The  precise  weighting  doctrine 
places  upon  these  alternatives  will  vary  from  country  to 
country,  and      the        probabilities        should      be        atliusted 

accordingly. 

Reducing  the  level  of  chemical  protection,  once  assumed, 
is  a  rather  long  and  drawn-cut  process.  The  absence  of  a 
chemical  agent  threat,  due  to  decontamination  or  in  casas 
where  it  was  suspected  but  not  present,  must  be  verified  by 
detection  apparatus.  This  is  a  time  consuming  process,  and 
will  not  be  accomplished  under  normal  circumstances  while 
conducting  a  comba*  mission.  Because  most  high  resolution 
models  such  as  the  STAR  model  play  scenarios  of  relatively 
short  duration,  reduction  of  protective  posture  has  not  been 
modelled. 

Once  an  individual  is  in  full  protective  posture,  it  is 
still  possible  to  receive  a  chemical  agent  dose.  One  possi- 
bility is  the  presence  of  chemical  agant  trapped  under  the 
protective  garment  due  to  inadequate  decontamination  or 
assuming  protection  without  decontamination.  Another  possi- 
bility is  the  presence  of  leaks,  caused  by  poor  fitting  or 
improperly  denned  garments  and  masks,  or  by  tears  caused  by 
wear,  accidents,  and  combat  hazards.  This  leakage  is  not 
necessarily  detectable  by  the  individual.  It  is  also 
possible  for  chemical  agents  to  penetrate  the  protective 
clothing    after    a   long  period  of   time. 
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One  cf  the  actions  taken  by  a  soldier  after  contamina- 
tion will  be  to  perform  partial  decontamination  cf  his 
equipment,  vehicles r  weapons,  etc.  This  is  normally  dene 
upon  command  by  all  members  cf  a  unit,  rather  than  as  an 
individual  (although  some  national  doctrine  may  call  for  a 
certain  amount  to  b€  done  automatically) .  At  seme  later 
date,  after  the  unit  has  performed  its  combat  mission  or  as 
time  allows,  the  unit  may  move  from  areas  cf  contamination 
and  go  through  complete  decontamination  of  all  personnel  and 
material.  If  the  urit  had  become  contaminated,  this  is 
normally  the  only  way  that  soldiers  may  reduce  their  indi- 
vidual chemical  protection.  (Under  certain  conditions,  it 
is  possible  that  partial  decontamination,  combined  with 
weathering,  may  permit  removal  of  protective  gear.  However, 
this  will  take  a  relatively  long  period  of  time).  Partial 
and  complete  decontamination  have  not  been  addressed  by  this 
model    because  of   the    directed    nature    of    these    actions. 
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III.    THE    PERSISTENT    CHEMICAL   AGENT    EFFECTS    MODEL 

A.       INTRODUCTION 

The  persistent  chemical  agent  effects  model  described  in 
this  thesis  is  designed  to  predict  the  accumulated  dosage  of 
chemical  agent  received  by  any  individual  modeled  in  a 
high-rescluticn  simulation  such  as  STAR.  In  doing  so,  it 
also  models  the  actions  performed  by  an  individual  after 
encountering  a  chemical  agent  hazard,  whether  it  is  from  a 
direct  attack  by  a  chemical  round  or  volley,  or  from 
encountering  a    cloud    cf   agent   or   contaminated  terrain. 

The  model  can  be  called  when  the  first  appearance  of  a 
chemical  agent  appears  in  the  main  combat  simulation.  At 
that  time,  individuals  are  created  as  temporary  entities 
with  a  considerable  r.uraber  of  attributes,  many  of  which  are 
used  to  reccrd  the  times  and  types  of  actions  taken  to  react 
to  persistent  chemical  agent  threats.  The  model  updates  the 
dosage  received  by  each  individual  at  a  user-supplied 
interval  cf  time,  DELT,  simulates  the  actions  that  would  be 
taken  by  an  individual  facing  a  persistent  chemical  hazard, 
and  provides  an  indication  of  when  each  individual  is 
affected  by  the  chemical  agent,  wnich  can  be  used  to 
influence  other    modules    within   the   main    combat   simulation. 

Immediately  before  the  main  model  invokes  the  persistent 
chemical  agent  effects  model  to  update  the  chemical  status 
and  reactions  of  all  personnel,  the  routine  ALARM. UPDATE 
should  be  called  to  update  the  warning  status  of  the  auto- 
matic chemical  agent  alarms  found  on  the  battlefield.  It  is 
assumed  that  the  alarms  are  capable  of  warning  personnel 
during  the  update  interval  DELT  if  the  agent  concentration 
passes  the  threshold  established  for  each  alarm  at  any  time 
during   the    interval. 
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The  main  combat  simulation  modal  calls  the  routine 
CHEM. CHECK  iteratively  for  each  person  alive  or.  the  battle- 
field at  time  intervals  DELT  apart.  This  routine  will 
perform  all  the  functions  described  in  this  documentation 
either  within  the  routine  itself  or  by  calling  ether 
routines.  The  description  of  the  actions  performed  by  each 
routine,  along  with  the  logic  described  and  illustrated  in 
flowcharts,    is    provided   in    Section   E    of   this   chapter. 

B.       MODELING   APPROACBES 

1  •      Determination   of    the    Pep  csi  tier,      of  a   Chemical    Ac  ent 
2£   the    Person 

Once  the  basic  concept  of  the  model  had  been  decided 
upon,  with  its  capabilities  and  limitations,  it  was  neces- 
sary to  determine  hew  to  model  the  various  phenomena  to  be 
represented.  The  input  available  from  the  main  combat  simu- 
lation helped  determine  the  environmental  and  physical 
characteristics.  The  NUSSEII  model,  or  i*s  equivalent, 
supplies  air  concentrations  and  ground  depositions  in  a  grid 
(constant  deposition  patterns  within  the  grid)  at  the  time 
intervals  desired.  Any  individual  exposed  to  the  falling 
agent  is  likely  to  vary  the  aspect  angle  presented  to  the 
agent  as  he  conducts  his  activities,  even  over  a  brief 
period  of  time.  As  a  result,  the  simplification  of  using  the 
ground  deposition  value  of  the  grid  in  which  he  is  located 
(which  is  ir.  itself  an  average)  for  the  deposition  upon  the 
exterior  of  all  body  surfaces  (or  the  exterior  surfaces  of 
the  collective  protection)  was  adopted.  The  deposition  upon 
the  individual  or  collective  protection  of  any  person  in  the 
initial  effects  area  of  a  bursting  round  has  therefore  been 
established. 
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2 •      Leakage    Through   Che  mical    Protection 

Unless  the  collective  protection  is  designed  to 
provide  tctal  chemical  protection,  there  will  be  a  certain 
amount  of  leakage  of  both  vapor  and  liquid  (in  small  droplet 
form)  through  the  collective  protection.  It  was  assumed  that 
this  leakage  could  he  expressed  as  a  percentage  of  the 
concentration  or  deposition  on  the  exterior  of  the  collec- 
tive prc-ection.  For  vehicles,  this  percentage  is  a  function 
of  the  vehicle  system  and  weapon  type  (which  identifies  the 
specific  type)  ,  the  state  (open,  closed  without  an  overpres- 
sure system,  closed  with  an  overpressure  system),  the  crew 
cr  passenger  compartment  (where  applicable) ,  the  agent 
type,  and  whether  we  are  examining  a  vapor  cr  liquid  threat. 
For  fixed  types  of  collective  protection  (bunker,  foxhole, 
cr  in  the  open  with  temporary  overhead  cover),  a  different 
array  dependent  simply  upon  the  protection  type,  agent  type 
and  liquid/vapor  threat  is  used  to  compute  the  percentage  of 
agent  that  penetrates  the  protection.  For  these  computa- 
tions* a  buil diner  cr  a  fcxhele  with  overhead  cover  is 
considered   to   be  the    equivalent   of  a    bunker. 

3  •      P ic kuD    a nd    Transfer 

An  adjustment  is  made  to  model  the  amount  of  contam- 
ination resulting  from  crossing  an  area  of  contamination 
that  has  completely  deposited  itself.  A  pickup  factor  is 
used  to  compute  the  percentage  of  the  ground  deposition  that 
deposits  itself  upon  individuals  or  vehicles  crossing  the 
contaminated  area.  This  pickup  factor  is  a  constant 
percentage  for  each  agent  and  for  all  entities.  When  vehi- 
cles cross,  it  is  assumed  that  they  kick  up  enough  dust, 
etc.  to  deposit  the  adjusted  contamination  uniformly  over 
the  vehicle  surfaces.  With  individuals  crossing  en  foot, 
this    will   not      necessarily    be   true.      The      following    approach 
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was  used  to  model  personnel  crossing  an  area  of  prior 
contamination  on  foot:  If  the  soldier  stops  at  any  point, 
or  reduces  his  silhouette  by  crouching,  kneeling,  lying 
prone,  etc.,  it  is  assumed  that  he  will  come  in  contact 
with  the  grcund  sufficiently  to  deposit  the  adjusted  agent 
level  over  all  body  surfaces.  If,  however,  he  continues 
moving  essentially  upright,  he  will  contaminate  only  his 
legs,  feet,  and  hands  (the  latter  araa  compensates  for  the 
handling  of  equipment,  vegetation,  etc  that  may  be  contami- 
nated). Once  he  stops  movement,  he  will  receive  the 
contamination  over    all  surfaces. 

**  •      Acgnt  D  eca y_    Due   to    Weathering 

Finally,  contamination  may  oe  reduced  by  a  3ecay 
factor  which  will  account  for  weathering.  This  decay  factor 
represents  the  percentage  of  the  original  deposition 
remaining  after  the  iteration  interval  DELT.  This  factor 
will  re  normally  very  close  to  one,  as  DELT  is  a  relatively 
short  interval  (on  the  order  of  10  seconds  or  less) ,  but 
this  cculd  prove  significant  over  several  minutes  with 
semi-persistent  agents  if  the  arithmetic  done  on  the 
computer  will  allow  the  fraction  to  be  calculated.  The 
contamination,  once  assumed  over  the  exterior  surface,  will 
not  te  reduced  by  more  than  this  decay  factor  without  decon- 
taminating, even  if  the  individual  moves  to  an  area  where 
the  ground  deposition  is  lighter  (this  holds  true  even  for  a 
clean   area    with    no   deposition)  . 

Explicit  representation  of  vegetation,  terrain  or 
weather  effects  is  not  included  in  the  model.  These  may  be 
represented  to  seme  extent  implicitly  in  the  calculation  of 
ground  and  air  concentrations  if  the  model  used  permits 
this. 
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5 •      Individual    Chemical    Protection 

Individual      chemical        protection      is         modelled      by 
dividing   the  body   into  7    areas.    They    are: 

Area    1    -   Top    of   head,    normally    covered   by   helmet. 

Area   2    -    Face    and    neck,      normally      covered    by    a    protective 
mask  or    a   mask    with   hood. 

Area   3    -   Torso. 

Area   4   -    Arms. 

Area   5    -   Legs. 

Area    6    -    Hands. 

Area   7    -   Feet. 

Each  of  these  areas  can  ba  covered  by  an  item  of 
clothing  or  gear  that  offers  a  certain  protection  factor.  A 
protection  factor,  when  multiplied  by  the  amount  of  liquid 
agent  on  the  outside  of  the  clothing,  yields  the  concentra- 
tion of  agent  that  penetrates  the  item.  Exposed  skin, 
therefore,  has  a  protection  factor  of  one,  while  a  perfectly 
impermeable  protective  garment  will  have  a  protection  factor 
of  zero.  Standard  Mission-Oriented  Protective  Posture  (MOPP) 
levels  cr  their  equivalent  can  be  formed  for  any  force" by 
establishing  the  seven  levels  of  the  protection  factors 
provided  by  that  MOPP.  The  average  amount  of  skin  included 
in  each  area  can  be  set  at  different  levels  for  each  side  to 
allow  for  variations  in  the  amount  of  coverage  for  different 
types  of  protective  gear.  The  body  areas  are  numbered  in  the 
order  that  they  would  normally  be  donned.  Because  the 
protection  factor  is  defined  in  terms  of  the  relative 
absorption  of  liguid  chemical  agents,  a  separate  category  of 
protection  against  vapors  and  aerosols  is  defined  for  the 
protective  mask.  Thus,  the  mask  has  two  numbers  associated 
with  it  -  the  protection  it  affords  the  skin  against  liquid 
agents,  and  the  protection  it  affords  the  respiratory  tract 
and    mucous    membranes   against   vapors   and   aerosols. 
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6  •   Collective  Chemical  Protection 

Collective  chemical  protection  (CP  category)  is 
divided  into  5  categories: 

1.  Vehicles  -  closed,  equipped  with  overpressure  systems 
2*  Vehicles  -  open  or  closed,  with  no  overpressure  system 

3.  Covered  fortifications  (bunkers)  or  buildings 

4.  Foxholes 

5.  In  the  open 

The  protection  afforded  by  each,  category  is  calcu- 
lated ty  adjusting  the  effective  ground  and  air 
concentrations  as  discussed  above.  No  time  is  assessed  when 
changing  collective  protection  categories  -  if  movement  is 
required  to  go  fron  one  to  another,  then  it  should  be 
modelled  by  the  main  combat  simulation  in  the  same  manner 
that    all    movement    is    modelled. 

7.      Detection   of   a   Persistent   Chemical    Agent 

I  mejor  factor  in  modelling  the  reactions  taken  to 
the  presence  of  a  chemical  agent  hazard  is  the  time  at  which 
this  hazard  is  determined.  The  word  detection  used 
throughout  this  thesis  refers  to  the  positive  suspicion  on 
the  part  of  the  individual  that  ha  is  being  exposed  to  a 
persistent  chemical  agent  hazard.  Once  this  suspicion  is 
sufficiently  strong  for  the  individual  to  assume  the  pres- 
ence cf  the  agent  and  react  accordingly,  detection  has 
occurred.  This  suspicion  may  be  derived  from  doctrine  and 
training  (for  example,  treating  all  incoming  artillery  as  a 
chemical  attack)  even  in  the  absence  of  an  actual  threat. 
Since  verification  cf  the  presence  of  a  chemical  agent 
requires  tine  and  specialized  equipment,  no  distinction  is 
made  between  the  individual  who  merely  suspects  he  has  been 
attacked  and  those  whc  react  to  more  positive  evidence,  such 
as   the   appearance   of   symptoms,    or  the   sounding  cf   an   alarm. 
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Detection  of  a  persistant  chemical  agent  attack  may 
cccur    in   any  of    four    ways: 

1.  The  individual  can  detect  based  on  the  assumption  that  a 
nearby  artillery    burst   was   a   chemical   munition. 

2.  The  individual  may  note  suspicious  signs  of  a  chemical 
attack,    based   on    physical    evidence    perceived    by    him. 

3.  The  individual  may  hear  a  nearby  chemical  agent  alarm  (an 
automatic  alarm  or  detector,  or  a  manually  activated  unit 
alarm) ,  or  detect  the  reactions  of  persons  nearby  who 
have    detected  the   presence   of   the    agent. 

U.  The  individual  detects  the  symptoms  of  chemical  agent 
poisoning  in    himself. 

The  first  means  of  detection  is  modeled  using  a 
two-stacs  prcbabilit y ,  which  may  be  set  differently  for  each 
side.  Each  individual  has  a  given  prooabii.it  y  of  assuming  a 
non-persistent  threat  (or  reacting  only  partially  to  a 
persistent  agent  threat)  by  masking  only.  If  a  given  person 
chooses  to  mask  (or  is  masked  but  would  have  so  chosen)  , 
then  he  may  also  choose  whether  or  not  to  treat  the  attack 
as  persistent  by  denning  fail  chemical  protection.  The 
person  is  considered  to  have  detected  the  presence  of  a 
persistent  chemical  threat  if  he  chooses  the  latter  option; 
simply  masking  will  not  cause  the  person  to  detect.  If  the 
user  of  the  model  wishes  to  have  soldiers  either  assume  no 
chemical  threat  or  assume  a  persistent  threat,  ha  may  simply 
set  the  sacend  probability  at  one.  One  exception  tc  the 
procedure  given  occurs  if  the  individual  is  in  a  pressurized 
vehicle;  if  he  masks,  this  is  equivalent  to  closing  the 
vehicle   and   no    further  action    is   required. 

The  second  means  of  detection  based  en  suspicious 
physical  signs  uses  a  glimpse  target  detection  model 
[Ref.    8].  The      chance     of   detecting      the      presence      of      a 

chemical  agent  occurs  in  discrete  glimpses  due  to  the 
discrete   nature    of   the  periodic      update.      The   probability   of 


38 


detecting  the  prasence      of    a   chemical    hazard     during   the    ith 

iteration   cf  the   model,      g .    ,        is  drawn   from   a    user-defined 

distribution.    Since    this    value   must    be   a   probability   ranging 

from    zero   to      one,       the    Beta   distribution      is   recommended    as 

the    most   general,      although    the      user    can    substitute   another 

distribution      or  assume  a   deterministic    value.      As    a   result, 

the    probability    of      detecting   the   chemical    agent      by   the   nth 

iteration   after      the    agent    first      appeared   in      a    significant 

concentration  is: 

n 
Fr  (detection)    =    1  -    J    H.     (    1   -    g.    )  (eqn   3.1) 

The  third  means  of  detection  relies  on  the  physical 
proximity  between  individuals  (or  automatic  alarms,  which 
are  discretely  modeled) ,  If  a  person  or  alarm  detects  the 
presence  of  an  agent  in  a  given  iteration,  he  (or  it)  will 
warn  all  persons  within  a  set  radius  during  the  next  itera- 
tion, with  the  time  of  such  detection  being  dependent  upon 
the  distance  from  the  parson  detecting  to  the  nearest 
entity  warning  him.  The  one-iteration  delay  makes  the  prob- 
ability cf  detection  via  this  means  independent  cf  the 
sequence    in    which   the  soldiers    being    modelled  are    updated. 

The  last  means  of  detection  relies  on  an  impairment 
dose  threshold,  which  is  established  for  each  person  -  agent 
pair  (the  means  of  setting  the  threshold  is  discussed  later 
in  this  section)  .  The  impairment  state  is  considered  equiva- 
lent to  the  appearance  of  visible  symptoms,  thus,  when  the 
person  passes  his  impairment  dose  threshold,  symptoms  will 
appear.  If  he  has  net  previously  detected  a  chemical  agent 
threat,    he    will    detect  at   the   time   that    symptoms    appear. 

8 .      Immediate   Reaction    Based    on    Detection 

Regardless  cf  the  means  of  detection,  the  first 
action  taken  by  the  individual  will  be  to  mask,  if  he  has 
not    already.      The  time  it   takes      the    soldier   to    perform   this 
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and  all  other  physical  actions  is  drawn  from  a  distribution 
supplied  by  the  user  for  each  side,  based  on  the  character- 
istics of  the  item  being  donned.  The  protection  afforded  by 
any  ciece  of  protective  equipment  begins  at  the  moment  the 
donning  process  is  complete;  this  time  is  stored  by  the 
model  as  the  time  at  which  a  given  item  was  donned.  Because 
of  the  definition  of  the  protection  factor  as  given  above, 
donning  the  mask  also  means  donning  the  maximum  chemical 
protection   for    body    area  two. 

In  addition,  whenever  an  item  of  protective  gear  is 
donned,  there  is  a  probability  that  the  equipment  will  leak. 
This  probability  is  assessed,  ana  if  the  item  is  to  leak, 
the  amount  of  leakage  expressed  as  a  percentage  of  the 
outside  concentration  or  deposition  is  dra*r  from  a  user- 
defined  distribution.  This  procedure  is  used  to  account  for 
leakage  resulting  frcm  tears,  combat  damage,  improper  fit  or 
donninc,    agent    trapped   under   the   item,    etc. 

A  common  item  of  doctrine  is  to  reach  or  create 
overhead  cover  when  exposed  to  the  direct  effects  of  a 
persistent  chemical  agent.  This  is  modeled  by  setting  a 
probability  that  any  soldier  caught  in  the  open  or  in  a 
foxhole  without  overhead  cover  will  assume  that  there  is 
agent  present  in  the  air  falling  upon  him.  This  probability 
may  be  set  differently  for  each  side.  If  he  makes  that 
assumption,  a  second  probability  vector  is  used  to  determine 
which  of  three  possible  actions  is  taken  to  reach  overhead 
cover.  He  may  seek  overhead  cover  by  entering  a  vehicle,  by 
entering  a  bunker,  cr  by  creating  temporary  overhead  cover 
in  place  by  drawing  a  poncho,  chemical  protective  cape, 
shelter  half,  etc.  over  himself.  A  time  taken  to  perform 
this  is  drawn  from  a  distribution  depending  upon  the  action 
taken,  and  the  collective  protection  category  and  time  at 
which  overhead  cover  was  reached  is  updated  appropriately. 
One    limitation    to   this  approach    is  that    it    does   net   identify 
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particular  vehicles  cr  bunkers  into  which  the  soldier  cay 
proceed,  sc  it  may  be  difficult  to  integrate  this  reaction 
into  the  main  model.  The  way  to  handle  such  a  problem  is  to 
only    allow   the    use    of   temporary  overhead   cover. 

9  •      jtodividual    Decontam  ination 

Immediate        individual        decontamination  may        be 

performed  at  two  times:  Immediately  after  detecting  the 
attack,  as  part  of  the  reaction  to  that  detection,  or  after 
symptoms  have  appeared.  There  is  a  separate  user-defined 
probability  that  the  soldier  will  decontaminate  when  in 
either   of   those    two    situations. 

When  performing  immediate  decontamination,  all  areas 
cf  exposed  skin  are  decontaminated  first,  -hen  all  areas 
where  the  protection  afforded  by  clothing,  etc,  is  less  than 
that  afforded  by  the  maximum  level  available  (the  chemical 
protective  ensemble) .  The  face  is  not  decontaminated,  as 
the  mask  is  donned  immediately  after  detection  and  normally 
not  removed  during  immediate  individual  decontamination.  The 
order  of  decontamination  within  the  category  (skin  or 
clothing)  is  in  the  numerical  order  cf  the  body  areas.  After 
each  area  is  deconta nina ted ,  the  chemical  protective  piece 
of  clothing  or  gear  is  donned.  Decontamination  and  donning 
times   are   drawn    from    user-defined    distributions. 

Decontamination  performed  after  the  appearance  of 
symptoms  is  the  same  as  the  immediate  decontamination  except 
that  all  areas  of  the  body  (to  include  the  face)  are  decon- 
taminated. The  donning  times  are  doubled  to  simulate  the 
time    required  to  remcve   the    old   clothing. 

Eecause  decontamination  is  assumed  to  occur  under 
cover,  nc  additional  deposition  of  agent  during  decontamina- 
tion is  allowed.  The  calculation  of  the  dosage  received 
during  decontamination  is  discussed  in  Appendix  A.  If  decon- 
tamination  is  omitted,  and    contamination   of   the    individual's 
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skin  and  clothing  has  occurred,  a  leakage  factor  will  auto- 
matically be  assessed  for  all  body  areas  for  liquid  agents 
to  account  for  the  agent  trapped  under  the  protective 
clothing    when  it   is    denned. 

10.  First    Aid 

The  only  first  aid  treatment  explicitly  modeled  is 
injection  of  a  nerve  agent  antidote,  although  other  first 
aid  treatments  can  be  added  (see  Chapter  4)  .  This  can  be 
injected  wrongfully,  that  is,  without  evidence  of  symptoms, 
with  a  set  probability  when  detection  occurs  or  symptoms  of 
any  chemical  agent  poisoning  occur.  The  effect  of  any  first 
aid  treatment  is  to  reduce  the  effective  dosage  by  a  given 
percentage . 

Antidote  injection  is  handled  as  follows:  A  certain 
percentage  of  all  troops  in  the  area  of  deposition  will 
inject  themselves  with  an  antidote  for  nerve  agent  (atropine 
or  seme  ether  substance  depending  upon  the  country)  regard- 
less of  the  type  of  agent  or  if  they  actually  receive  a  dose 
this  will  account  for  wrongful  injection  due  to  poor 
training  or  psychosomatic  inducement  of  perceived  symptoms. 
This  percentage  can  be  set  to  zero  for  troops  in  full  chem- 
ical protection.  In  addition,  if  the  agent  is  a  nerve  agent, 
injection  of  atropine  will  occur  when  the  accumulated  dose 
reaches  the  impairment  dose  level  for  the  individual. 
Injection  of  the  atropine  will  cause  reduce  the  effective  IV 
dose    accumulated  by    the   individual   by   a    given   percentage. 

11.  Dosage    Accumulation 

Dosages  are  computed  by  converting  the  amount  of 
agent  deposited  on  bare  skin  or  inhaled  into  the  lungs  to  an 
equivalent  intravenous  (IV)  dose.  The  conversion  is  accom- 
plished by  using  a  user-supplied  conversion  factor  for  each 
case    and    for     each    agent.         The   assumption    is      made   that   the 
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absorption  of  agent  through  skin  and  through  the  lungs 
occurs  at  a  reasonably  constant,  rate,  and  that  rate  can  be 
expressed  as  a  percentage  of  the  deposition  or  concentration 
over    tira«. 

It  is  recognized  that  an  identical  IV  dose  will 
effect  different  individuals  differently.  Rather  than  using 
the  median  dose  at  which  a  given  affect  occurs  (such  as  an 
LCt50,  the  dose  at  which  5 0%  of  all  individuals  exposed 
will  dis)  as  a  threshold  for  all  personnel,  a  distribution 
(most  likely  normal)  is  specified  by  the  user  for  the  lethal 
threshold   dosages.  Unfortunately,      it   is   not      possible  to 

model  a  continuum  of  rime  and  dosage  related  effects,  so  a 
set  threshold  is  established  at  which  the  individual 
abruptly  is  affected  at  the  level  specified  (is  impaired, 
incapacitat  =d,    or  dies). 

At  the  time  the  temporary  entity  PERSON  is  created, 
a  random  drew  from  this  lethal  threshold  distribution  estab- 
lishes his  unique  threshold  value,  and  stores  it  in  an  array 
pointed  to  by  an  attribute  of  the  PERSON.  Immediately 
afterward,  the  impairment  ana  incapacitating  thresholds  are 
set  by  multiplying  the  lethal  threshold  by  user-supplied 
constants.  For  example,  impairment  may  occur  at  a  level  that 
is  HQ%  of  the  lethal  dose,  while  incapacitation  may  occur  at 
65^.  The  use  of  constant  fractions  of  the  lethal  dose  to 
determine  lesser  dose  thresholds,  rather  than  independent 
draws  from  different  distributions,  insures  that  the  dosages 
are  consistent  for  each  individual.  The  alternative  process 
of  making  separate  draws  from  impairment  and  incapacitation 
distributions  may  result  in  anomalies  such  as  the  same  indi- 
vidual being  in  the  95th  percentile  for  an  incapacitating 
dose  and  the  5th  percentile  of  the  lethal  dose  (which  could 
result      in   a  higher    dose    for   incapacitation   than    for    death)  ! 
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When  multiple  agents  are  present  on  the  battlefield, 
all  dcsaces  and  dosage  effects  are  computed  separately  with 
no  interactions.  Reaching  the  impairment  dose  threshold 
results  in  the  appearance  of  symptoms,  so  only  the  first 
such  appearance  will  -rigger  a  defection  event  (even  if 
symptoms  appear  later  from  a  different  agent ,  all  reactive 
measures      have      already      been    applied).  The      dosages      are 

strictly   cumulative    with   no    time-related   recovery    permitted. 

C.       A    GENERAL    OVERVIEW   OF   THE    COMPUTER    PROGRAM 

The  routine  CHEH. CHECK  will  simulate  the  effects  of  a 
persistent  chemical  agent  attack  on  a  ground  force  unit. 
CHEM. CHECK  is  called  by  the  main  combat  simulation  for  each 
person  (modeled  by  the  entity  PERSON)  alive  en  the  battle- 
field. It  does  this  primarily  by  calling  upon  other  routines 
included    in    the    model. 

The  actions  performed  by  each  routine  are  explained  in 
detail  in  Section  E.  A  general  overview  of  the  function  of 
each    routine  follows: 

1.  UPDATE  -  updates  depositions  at  the  location  of  the 
PERSCN  concerned,  updates  certain  global  variables  and 
arrays,  and  performs  changes  in  the  chemical  protection 
(collective  and  individual)  ordered  external  to  the 
model. 

2.  MASKING  -  simulates  donning  the  protective  masks,  and 
determines    leakage    (if    any)  . 

3.  OHC  -  simulates  the  assumption  of  overhead  cover  by 
entering  vehicles,  bunkers,  or  by  creating  temporary 
cover. 

4.  CECCN  -  simulates  the  immediate  emergency  decontamina- 
tion  of  the   skin  and  clothing. 

5.  CECCN2    -  serves    as   a  subroutine    to    DECON. 
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6.  DEPCSITION  -  computes  the  currant  deposition  on  the 
outside  of  the  individuals  protective  clothing  (as 
opposed  to    his      collective   protection) . 

7.  MOPE   -   simulates  donning    full  chemical   protection. 

8.  DETECTION  -  decides  if  the  PERSON  will  detect  the  pres- 
ence of  a  chemical  hazard  from  physical  signs  or  by 
being   warned   by    alarms    or   other    individuals. 

9.  NAA  -  simulates  the  injection  of  the  standard  nerve 
agent    treatment. 

10.  BCSE1  -  computes  the  accumulated  dosage  received 
through  the   current   time. 

11.  DOSE2    -   serves    as   a   subroutine    to    DOSE1. 

12.  CHEMCAS.  EFFECTS  -  decides  if  ths  PERSON  has  passed  his 
impairment,  incapacitation,  or  lethal  dose  thresholds 
due    to   accumulated    dcsages. 

13.  SYMPTOM. DETECT  -  schedules  detection  of  the  chemical 
agent  hazard  and  appropriate  reactive  measures  after 
the  appearance  of  symptoms,  if  detection  haa  not 
cccurrad  earlier. 

14.  CECSSING  -  performs  the  functions  of  CHEM. CHECK  in 
situations  where  the  PERSON  is  crossing  an  area  of 
previously    deposited  contamination. 

15.  D0SE3  -  computes  ths  accumulated  dosages  in  the 
crossing  situation  handled  by  the  CROSSING  routine, 
above. 

The    sequence      of    routine   calls,       illustrated      in    Figures 
3.1    and    3.2,   is    briefly   thus:    The   routine    CHEM. CHECK    will: 

-  call    UPDATE,    which: 

-  calls    the      deposition   model       (NUSSE   II      or   equiva- 

lent) . 

-  may  call    MASKING. 

-  Evaluate    the    chemical    situation.       If    the   individual   is 

moving  across    an   area      of    previous   contamination,      it 
will   call: 
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-  CROSSING,  *nich  will  handle  all  subsequent  routine 

calls . 

-  Check  to  see   if  artillery  has  landed   sufficiently 

close  to  the  FERSON  to  cause  him  to  take  cover  (react 
conventionally).  If  it  has,  CHEM.  CHECK  may: 

-  call    MASKING. 

-  Decide      if    the      person      will      assume  a      persistent 

chemical      threat.        If   he      will,        the      following 
sequence    will   be    called: 

-  OHC 

-  DECON 

-  mopp 

-  If      detection    was     not      assumed      aoove,      and      has      not 

occurred    previously, 

-  DETECTION    will    be    called.    If   defection    occurs,    it: 

-  may  call   MASKING. 

-  may  call  NAA. 

-  will    call    OHC. 

-  will    call    DECON. 

-  will   call    MOPP. 

-  In      ail      cases      except   where      control      has      passed      to 

CROSSING,    D0SS1    will    be   called. 

-  Next,    CHEMCAS. EFFECTS    will    be    called. 

-  NAA   may   be    called. 

-  If  symptoms   had   occurred,         but:    detection    had    not, 

SYMPTOM. DETECT   would    be   called. 

Many  of  the  routines  given  in  the  main  flow 
described  above  nay  call  upon  other  routines,  as  shown  in 
Figure  3.1.  The  actual  routine  calls,  and  the  logic  that 
decides    if   a  call  is    to   be    made,      is    given    in   Section    E. 
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Figure  3,2        Plow   of    Routine   Calls,    Continued, 
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D.       DA2A    STRCCTURE 

The  model  makes  extensive  use  of  attributes  and  g lota I 
variables.  Although  some  arguments  are  used  between  routine 
calls,  because  of  the  complicated  structure  shown  above, 
this    is   the    exception  rather   than   the   rule. 

The  ability  to  handle  multiple  agents  and  sides  required 
most  variables  describing  the  state  of  the  individual  or 
states  of  nature  to  te  multi-dimensional  arrays.  Attributes 
must  be  singly  valued,  so  many  attributes  store  pointers  to 
global  arrays  that  actually  contain  the  data  pertaining  to 
the    individual. 

There  are  fcur  bread  categories  of  variables  used  in  the 
model.    They    are: 

1.  Attributes  of  the  temporary  entities  PERSON,  VEHICLE  or 
ALARM.  These  describe  either  characteristics  of  the 
individual  (for  example,  his  individual  susceptibility 
threshold  for  the  various  agents)  ,  his  current  situ- 
ation (his  levels  of  chemical  protection,  his  location, 
etc.)  or  the  time  at  which  events  occurred  or  actions 
where  completed  (for  example,  the  time  he  detected  the 
presence  of  a  chemical  hazard  or  the  time  he  donned  his 
protective  mask).  These  are  generally  provided  as  part 
of  the  main  comtat  simulation,  although  some  attributes 
may    have   to   be    provided   by   the   user   of  the    model. 

2.  Situation  variables,  such  as  the  type  of  chemical  situ- 
ation (listed  below  under  the  variable  CHEHSIT)  or  the 
side  (force)  that  the  PERSON  belongs  to.  These  are 
generally    set    within  the    model. 

3.  Physical  parameters,  such  as  the  alarm  detection 
threshold,  the  absorption  rate  of  the  agents  through 
skin,  the  amount  of  agent  picked  up  when  traversing 
contamination,  etc.  These  must  be  supplied  by  the  user 
of    the    model. 
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4.    Probabilities    and  distributions.      The      logic    within   the 

routines  is      governed    by    probabilities      and   probability 

distributions.    These   must    also   be   supplied   by    -he    user. 

A    complete    listing     of    the    variables   is      provided    in   the 

glossary   found    in   Appendix    B.      A      brief   summary    of    the    major 

variables   used      is    provided    below     to    assist   in      reading   the 

following   documentation   of    the   routines. 

1  •      Attributes    of   Each      Person   and    Arrays    Pointed      to    by_ 
Them: 

(The  arrays  may  be  distinguished  by  the  extra  A 
added   to   the  prefix) 

AG.CUMDOSE,  AGA.CUMDOSE  -  Stores  the  dosage  accumu- 
lated   by    the   PEBSON    for    each    agent. 

AG.  IMPAIR,        AGA.  IMPAIR,       T.  IMPAIR,  T  A.  IMPAIR    -    The 

first  two  refer  to  the  threshold  dosage  at  which  the  PERSON 
reaches  impairment;  the  ssccnd  two  rafsr  to  the  times  at 
which   this    occurs  for  each    agent. 

AG.INCAP,  AGA.INCAP,  T.INCAP,  TA.INCAP  -  Same  as 
above,    for    incapacitation. 

AG.LETH,      AGA.LETH,         T.LETH    -    Same    as       above,       for 
lethalities     (there    is   only    one    time    of    death)  . 

ANTIDOTE,  A. ANTIDOTE  -  Stores  the  percentage  reduc- 
tion   in   the   dosage    caused   by   first   aid   treatment. 

CHEM.CHANGE,  CHANGE, ORDER  -         The  attribute 

CHEM.  CHANGE  points  to  the  array  CHANGE.  ORDER,  which  is  used 
to  order  changes  in  the  chemical  protection  status  from 
outside   the    model. 

CCLCR  -  Used  to  identify  the  side  that  the  PERSON  is 
associated    with. 

CONTAMINATED,  T.CONTAM  -  CONTAMINATED  shows  if  the 
PERSON  is  or  is  not  contaminated;  T.CONTAM  provides  the  time 
of   contamination. 
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CP,  T.CP  -  The  collective  protection  category  of  the 
individual   and    the   time   that   the   category   was   assumed. 

DEFNUM  -  The  defilade  of  the  individual,  ranging 
from    inside   a  foxhole    (1)    to   standing    up    (5). 

DIP. AIR,  DEE.A.CURR  -  the  current  concentration  of 
chemical  agents  in  the  air  at  the  PERSON'S  location.  The 
latter   variable    does   not   follow   the   array   naming   convention. 

CEP.GND,  DEF.G.CURR  -  The  current  deposition  of 
agents   at   the  location  of  the   PERSON. 

MASK,  T.MASK  -  The  mask  status  (on/off)  and  the  time 
that    the    mask   was    donned. 

MASKLEAK  -  The  amount  of  leakage  to  vapor  of  the 
mask , 

SAME  -  An  index  number  used  to  refer  to  the  indi- 
vidual   FEBSCN. 

PF.CHEM,  PEA. CHE?!  -  The  current  protection  factors 
for  the  seven  body  areas,  and  the  time  that  the  protective 
item    was    denned. 

FF.LEAK,  PFA.LEAK  -  The  amount  of  leakage  to  liquid 
agents   by   the   protective   garments. 

BCDND,  A. ROUND,  RDPT.R  -  The  array  A. ROUND  stores  the 
times  and  chemical/conventional  status  of  ail  rounds  that 
impacted  close  enough  to  the  PERSON  during  the  DELT  interval 
to   cause    him  to    react.    RDFTR   stores   the    length  of    the   array. 

T.DECON  -  The  time  at  which  decontamination  was 
completed. 

l.NAA  -  The  time  at  which  an  injection  of  a  nerve 
agent   antidcte    was    given. 

T.OHC  -  The  time  at  which  overhead  cover  was 
assumed. 

VEH. SYS. TYPE ,  VEH.WFN.TYPS  -  Both  attributes  of  the 
PERSON,  these  identify  the  type  of  vehicle  which  he  is  in 
(when   applicable). 
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2-   Major   Global  Variables  (Oth  er   Than   Arrays  Given 
Above) 

CHEMSIT  -  The  chemical  situation  of  the  individual 
during  the  current  iteration.  The  various  levels  are: 

0  -  Stationary,  not  directly  attacked  by  chemical  rounds. 

1  -  Directly  attacked  by  a  chemical  round   {stationary  or 

moving) . 

2  -  Moving  in   an  area  of  previously   deposited  contamina- 

tion. 

3  -    Moving,      in      an   area    with    a   chemical      agent    present    in 

the   air,    not   directly    attacked. 

D.      prefix      variables    -   These      contain   or      relate   to 
probability   distributions,         indexed    by      various    parameters. 


d  V      a  • 


D. I  MP A 15 
D.IHCAE 

D.LETH 

D.  MSKLEAK 

D.PF.LEAK 

CT.      prefix    variables      -    These    each   contain      a    prob- 
ability   distribution      for   the    time      it   took   to      perform  some 
action,    indexed    by    various    parameters.    They   are: 
DT. EECCN 
DT.EETECT 
DT.MASK 
DT. NAA 
DT.OHC 
DT.PF 

DELI  -    The    length  of   the   interval    between    iterations 
of    the    model. 

DEP.A.OLD,         DEP.G.OLD      -        The      concentrations      and 
depositions    for    the    previous   update. 
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MIN.A.CHEM,  MIN.G.CHEH  -  The  minimum  significant- 
level    of   concentration  of  agent. 

N. ALARM,  N.  VEHICLE,  N.  PERSON  -  The  total  number  of 
the    temporary  entities   ALARM,    VEHICLE    and    FERSON    created. 

N.SIDE,  N.  AGENT  -  The  number  of  sides  and  agents 
modeled. 

CLD.DOSE  -  The  accumulated  dosages  at  the  last 
update. 

CLDCP  -  The  CP  category  previous  to  the  one  the 
PERSON  is  currently  in,  if  he  changed  during  the  interval 
DELT     (otherwise    it    is  the  current   CP)  . 

EC.      prefix    variables    -   These      are    used    to   store    the 
probability   of    performing  some   action.    They   are: 
PC. ACT.OHC 
PC.CEL.CECON 
PCIMM.EECON 
PC. MASK 
PC.MOPP 
PC. KSKIEAK 
PC.NAA 
PC.CHC 
PC.  PF. LEAK 

FE.MAX  -  The  protection  factors  associated  with  the 
full    chemical   protective   ensemble. 

SKIN  -  The  skin  area  (square  centimeters)  associated 
with    each   body    area. 

T.CHEMCURR    -      This    variable   serves      as   a      marker   for 
the    time   at    which   the   latest      action    performed   by    the    PERSON 
was    completed   -    used    when  scheduling    sequences  of    actions. 
T. CURRENT  -    The  current   simulation    time. 
TL    -   The  time  of   the   last   update. 
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3.      attributes    of   Each    Vehicle: 

NUMEER  -  an  index  number  used  to  refer  to  a  specific 
vehicle. 

OPEN. CLOSED  -  indicates  if  a  vehicle  is  open  or 
closed    (fcuttcned-up)  . 

**•       Attributes    of    Each    Alarm: 

WARNING  -  Identifies  if  the  ALARM  will  sound  a 
warning    (thus  alerting  PERSCNs  around    it). 

X. ALARM,         Y. ALARM    -      The      current      location    of      the 

5 .      Set    Ownership   and   M  embership : 

Every    VEHICLE    owns    a   CREW. 

Every   PERSON    may   belong    to   a    CREW. 

CREW  is  used  to  identify  PERSCNs  who  are  crew 
members  cf  the  vehicle  in  which  they  are  riding  in  (rather 
than  passengers) .  If  the  specific  vehicle  needs  to  be  refer- 
enced, the  attribute  NO.VEH  of  the  PERSON  identifies  the 
vehicle  number  (it  is  zero  if  the  PERSON  is  a  passenger  or 
not         in         a        vehicle) ,  and        each        CREW        belongs        to 

VEHICLE  (VEH.PTR  (NUMBER))  ,  the  vehicle  whose  memory  address 
is   pointed   to   by  the    pointer    VEH.PTR,    accessed   by    NUMBER. 

The  CREW  identification  is  used  directly  in  the 
model  to  determine  the  effective  leakage  of  agent  into  the 
vehicle  (it  may  be  different  in  some  vehicles  for  crew 
members  rather  than  passengers)  ,  and  it  also  can  identify 
PERSCNs  who  will  not  dismount  in  the  main  combat  situation, 
and  who  may  be  incapacitated  or  killed  when  a  vehicle  is 
hit.  If  a  crew  member  should  enter  or  leave  a  vehicle,  the 
CP  change  can  be  accomplished  through  CHANGE. ORDER  but  the 
change  in  VEH.NO  and  being  filed  or  removed  from  the  set 
CREW  must  fce  accomplished  outside  of  the  chemical  agent 
effects    jrcdel. 
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Additional  attributes  may  be  desired  when  imple- 
menting. For  example,  vehicle  locations  will  be  needed,  and 
a  set  ownership  identifying  the  placement  of  alarm  devices 
may  be  useful.  These  may  be  added  depending  upon  the  main 
combat   simulation   model    used. 

E.       3CDEL    BODTINES 

1-      2ie   Routine    CHEM. CHECK 

The  CHEM. CHECK  routine  performs  the  following  tasks 
for    each    PEFSON    on    the   battlefield: 

1.  Drives   the    model  and  calls  ail    other    routines. 

2.  Updates  the  depositions,  certain  global  variables,  and 
schedules  protection  changes  on  order  through  the 
routine  UPDATE. 

3.  Determines    the    chemical    situation    faced   by    each   person. 

4.  Schedules  automatic  reactive  measures  (if  any)  after 
artillery    rounds  impact   near   a   position. 

5.  Schedules  a  chemical  detection,  either  directly  or 
through  a  call  to  the  routine  DETECTION,  based  on  the 
situation.  When  a  chemical  hazard  is  detected,  sched- 
ules the  appropriate  reactive  measures  (seeking 
overhead  cover,  decontaminating,  increasing 
protection) . 

6.  Updates  the   dosage    through    a   call    to    the   routine    DCSE1 . 

7.  Assigns  times  at  which  dosage  thresholds  are  reached, 
and  reactions  (if  any)  to  symptoms,  through  the  routine 
CHEMCAS. EFFECTS. 

CHEM. CHECK  is  the  master  routine  that  performs  the 
job  of  the  chemical  casualty  assessment.  CHEM. CHECK  is 
scheduled  to  be  run  every  DELT  seconds  after  the  initial  use 
of  chemical  weapons  (DELT  is  the  time  interval  delta  t 
between   checks    -   a   user    input,         it    is   recommended    that   DELT 
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(Routine \ 
CHEM. CHECK       J 
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Figure  3.3    Routine  CHEM. CHECK 
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Figure  3.4        Routine    CHEH. CHECK,    Continuation    A. 
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Figure  3.5    Routine  CHEH. CHECK,  Continuation  B. 
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Figure  3.6    Routine  CHEH. CHECK,  Continuation  C. 
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be  less  than  or  equal  to  10  seconds  in  length)  .  The  routine 
is  iterated  over  all  PERSONS  still  living  on  the  battle- 
field. All  events  in  the  routine  CHEM. CHECK,  and  routines 
called  by  it,  are  performed  as  directed  by  the  logic  for 
each    of    these   PERSONS. 

CHEM. CHECK  begins  by  calling  the  routine  UPDATE, 
which  initializes  certain  temporary  variables,  assigns  the 
deposition  of  chemical  agent  j  at  the  location  of  the  PERSON 
to      the        arrays      DEF.G.OLD,         DEP.G.CURR,  DEP. A. OLD      and 

DEP.A.CURR,  and  checks  to  see  if  any  changes  in  protection 
category  or  individual  protection  have  been  ordered  during 
the   previcus     DELT    seconds.  The   array      value    DSP. G. OLD  (j) 

represents  the  deposition  of  agent  j  en  the  person  at  the 
time  cf  the  previous  iteration.  DEP.  G.CURR  ( j)  represents  the 
current  deposition  of  agent  j  en  the  ground  at  the  person's 
current        location      at        the      current        update      time,  and 

DEP.  A. OLD  (j)  and  DEP .  A.CORR  ( j)  represent  the  dosage  (accumu- 
lated concentration)  in  the  air  (at  a  height  cf  2  ina*€rs)  at 
his  location  at  the  last  update  and  the  present  time, 
respectively.  The  current  valued  arrays  have  their  pointers 
stored  as  attributes  of  the  PERSON,  so  a  record  is  kept  of 
the    most    recent    deposition. 

The  routine  next  initializes  a  temporary  variable, 
T.CHEMCURE,  to  equal  the  time  of  the  last  CHEM. CHECK  (time 
TL) .  T.CHEMCURR  is  used  to  keep  track  of  the  time  at  which 
any  action  scheduled  in  the  routine  was  completed  -  thus,  it 
represents  the  current  time  for  actions  performed  by  the 
given   individual   within  the    routine   CHEM. CHECK. 

The  next  actions  separate  out  several  possible  situ- 
ations that  the  PERSON  concerned  might  be  involved  in.  The 
current  situation  for  the  individual,  once  determined,  is 
stored  in  the  variable  CHEMSIT.  He  may  be  stationary  (no 
movement  in  the  last  DELT  seconds) ,  and  not  directly 
attacked   by   a  chemical  agent    (CHEMSIT      0).       He  may    have   been 
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directly  attacked  by  a  chemical  agent,  defined  as  being 
inside  the  ellipse  of  conventional  effacts  from  an  incoming 
chemical  round,  and  be  stationary  or  moving  (CHEHSIT  1)  .  He 
may  be  moving  in  an  area  that  has  prior  contamination, 
defined  as  any  area  where  there  is  agent  en  the  ground  but 
not  in  the  air  (CHEHSIT  2)  .  Or  he  may  be  moving,  in  an  area 
with  chemical  agent  present  in  the  air  (a  chemical  agent 
cloud),  but  not  in  the  area  directly  attacked  by  the  chem- 
ical  round  (CHEMSIT  3).  These  categories  will  determine  the 
actions  taken  by  an  individual,  and  may  change  from  itera- 
tion to  iteration  because  of  movement  of  the  person,  of  a 
chemical  agent  cloud,  or  because  of  a  round  landing  near 
enough  tc  be  considered  a  direct  attack.  If  the  PERSON  is 
moving,  his  attribute  T.OHC,  the  time  at  which  he  assumed 
overhead  cover,  is  set  to  zero  because  he  cannot  have  tempo- 
rary overhead  cover  while  moving  (see  the  routine  OHC  for  a 
further  explanation  of  the  significance  of  overhead  cover 
and  T.OHC).  If  the  PERSON  is  in  CHEMSIT  2,  the  calculations 
will  be  handled  separately  by  routine  CROSSING,  otherwise 
-routine   CHEM. CHECK    continues. 

The  routine  checks  to  see  if  the  PERSON  has  been 
contaminated  at  some  previous  time.  If  he  has  not,  and  his 
current  deposition  EEP.G.CURR  is  greater  than  a  minimum 
significant  level  (represented  by  the  global  variable 
MIN.G.CHEM),  then  he  will  be  marked  as  contaminated  by 
assigning  a  value  of  1  to  the  attribute  CONTAMINATED  and  a 
time  of  contamination  T.CONTAM  based  on  the  ratio  of  the 
MIN.G.CHEM    level   to    the   current    deposition    level. 

If  the  individual  has  already  detected  the  fact  t hat 
he  has  been  attacked  by  (or  exposed  to  the  hazards  of)  a 
chemical  agent,  then  the  program  moves  down  to  the  dose 
computation  sequence  EOSE1.  The  reason  for  this  is  tha*  all 
reactive  measures  caused  by  a  chemical  attack  are  scheduled 
during  the  iteration  of  CHEM. CHECK  during  which  the 
individual   noticed    the  attack   or   hazard. 
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If  he  has  net  detected  the  hazard,  the  routine 
checks  re  see  if  he  was  in  the  immediate  effects  ellipse  of 
any  round  daring  the  last  DELT  seconds  -  if  he  was,  he  might 
react  as  if  it  were  a  chemical  attack.  The  time  of  impact  of 
any  rounds  close  enough  to  have  affected  the  PERSON 
concerned  is  stored  in  an  array  A. ROUND,  pointed  to  by  the 
attribute  BCUND.  An  additional  attribute,  RDPTR,  gives  the 
length  of  the  round  queue.  The  array  k. ROUND  also  has  a 
(0,1)  bit  stating  whether  or  not  any  of  those  close  rounds 
were  chemical  -  if  so,  CHEMSIT  is  updated  to  be  1.  If  the 
individual  was  not  attacked  we  go  to  the  detection  sequence 
to  see  if  he  can  detect  the  presence  of  a  chemical  hazard 
(if  any).  If  the  individual  was  attacked,  he  may,  through 
doctrine  or  choice,  regard  the  attack  as  conventional, 
rather   than   chemical.    His   decision   is    based  on   the    parameter 


PC.IIASK.      If     a    uniform      (0,1)       random      number   is 


than 


PC. MASK,  he  has  regarded  the  attack  as  conventional  (no 
chemical- peculiar  actions,  such  as  masking,  are  required). 
Because  this  probability  is  expressed  in  terms  of  the 
attack,  rather  than  each  individual  round  (as  a  result,  the 
probability  is  not  dependent  upon  the  number  of  rounds)  ,  the 
routine  will  then  go  directly  to  the  detection  sequence.  If 
the  PERSON  regarded  the  attack  as  potentially  chemical  in 
accordance  with  doctrine,  etc. ,  the  current  time  at  which  he 
may  react,  T.CHEMCURR,  is  assigned  the  time  of  the  first 
round  that  impacted  close  enough  to  react  to  (which  was 
stored    in   the  temporary   variable    RDTIMS) . 

The  next  check  is  tc  see  if  the  PERSON  is  in  a 
closed  vehicle  equipped  with  an  overpressure  system.  If  he 
is  (CP,  the  collective  protection  category,  equals  1),  then 
no  reaction  is  necessary  since  the  vehicle  is  closed  and 
operating  with  the  overpressure  system.  Since  this  protec- 
tion is  identical  to  that  required  for  protection  against  a 
persistent   agent  attack,      the    PERSON    in   a   CP   equal   to    1    will 
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have  detected  the  event,  with  the  time  of  detection, 
T.CHEHDET,  adjusted  accordingly.  This  process  is  followed 
independently  for  each  PERSON,  so  it  is  possible  that 
another  FERSON  in  the  same  vehicle  will  not  have  detected 
the  attack.  This  dees  not  matter,  however  -  the  vehicle  is 
closed  so  the  protection  en  joyed  by  any  other  PERSON  in  that 
vehicle  is  the  same,  and  the  DETECTION  routine  will  schedule 
a  time  cf  detection  en  the  next  iteration  of  CHEM.  CHECK 
through  proximity  to  the  PERSON  who  has  detected  (for 
further  details,  see  the  routine  DETECTION  later  in  this 
section).  After  his  detection  status  has  been  updated  the 
routine    will  go    to    the  dose    computation    routine   D0SE1. 

If  the  PERSCN  was  net  in  an  overpressure  system, 
then  the  routine  checks  to  see  if  his  mask  is  en.  If  not, 
masking  will  occur.  One  possibility  that  the  routine  checks 
for  is  if  the  MASK  attribute,  which  determines  if  the  mask 
is  on  or  off,  was  just  set  to  1  (on)  during  the  update 
routine.  If  it  had  been,  then  the  mask  will  have  been  denned 
during  this  interval,  so  T.MASK,  the  time  at  which  masking 
was  completed,  may  he  inside  the  interval.  In  either  case, 
the  variable  T.CHEMCUER,  is  set  equal  to  T.MASK.  This  means 
that  any  future  action  scheduled  by  the  routine  (such  as 
donning  the  protective  suit)  will  begin  at  time  T.CHEMCURR, 
which    will    be  after    the   mask   was    donned. 

The  next  question  posed  by  the  routine  is  whether  or 
not  this  PERSON  will  react  as  if  the  round  contained  a 
persistent  chemical  agent.  This  question  is  different  from 
the  cn=  posed  before,  which  considered  masking  on  the 
assumption  that  there  is  chemical  agent  present.  Because  of 
the  significant  drawbacks  full  chemical  protection  under 
many  circumstances,  (heat  stress,  etc.) ,  doctrine  and/or 
command  guidance  may  or  may  not  direct  that  any  indirect 
fire  attack  be  treated  as  a  potential  persistent  or  semi- 
persistert   agent  attack;    in    other    words,    doctrine    may   or   may 
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not  dirsct  donning  full  chemical  protection  immediately 
after  any  indirect  fire  attack.  At  this  point  we  are 
discussing  possible  actions  taken  by  a  soldier  after  a  round 
has  impacted  in  bis  immediate  vicinity,  before  he  has  any 
chance  re  verify,  thrcugh  detector  paper,  alarms,  or  ether 
means,  if  any  incoming  rounds  contained  a  chemical  agent. 
The  itcdei  allows  the  user  to  set  the  probability  that  the 
PERSON  will  react  to  the  attack  by  donning  protective  items 
not  already  worn  thrcugh  the  global  variable  PC.MOPP.  If 
PC.MCPP  =  1,  the  individual  will  don  full  protective  gear; 
if  PC.MCPP  =  0,  then  he  will  not.  The  user  can  make  this  a 
stochastic  event,  :c  account  for  incomplete  reaction  to 
doctrine  or  training,  individual  suspicions,  etc.  by  setting 
that    prcbability   PC.MOPP   at    some    intermediate  value. 

If  a  uniform  (0,1)  random  number  is  less  than 
PC.MOPP,  then  the  person  will  have  detected  the  presence  of 
chemical  agent  in  terms  of  his  future  actions  -  in  ether 
words,  he  has  assumed  that  a  hazard  is  present  and  will 
react  accordingly.  The  time  of  detection,  T.CHSMDET,  is  set 
equal  to  his  current  time  (T. CHEMCORR) .  The  routine  next 
calls  for  the  appropriate  protective  measures  based  on  this 
detection,  which  is  accomplished  by  calling  the  routines  OHC 
to  seek  overhead  cover,  DECON  for  decontamination,  and  MCPP 
to  don  full  chemical  protection.  These  routines  are  called 
by  CHEM. CHECK  in  that  order,  and  actions  are  scheduled  as 
directed  by  the  routine's  logic.  The  attributes  referring  to 
the  time  that  a  given  action  was  completed  are  assigned 
values,  and  T.CHEMCOER  is  updated  to  keep  the  actions  in  a 
time  sequence.  The  reader  should  examine  the  documentation 
of  these  routines  later  in  this  section  to  see  how  these 
events   are    accomplished. 

If  the  PERSON  had  decided  not  to  mask  and/or  treat 
the  attack  as  a  persistent  agent  attack  (thereby  denning 
full    protection) ,      the  routine   DETECTION    is   called   to   see   if 
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ths  PEBSCN  will  detect  the  presence  of  a  chemical  agent  from 
signs  cr  from  proximity  to  others  who  have  detected  (or 
suspected  and  thus  reacted  to)  the  chemical  hazard.  The 
detection  routine  will  or  will  not  schedule  a  detection 
during  the  period  DELI  according  to  its  logic,  then  passes 
the    control    back   to    CEEH. CHICK. 

If  detection  had  occurred  during  this  DELT  period, 
then  all  reactions  to  that  attack  will  be  scheduled  by 
DETECTION  and  other  routines,  during  this  iteration  of 
CHEM. CHECK.  This  may  require  that  events  be  scheduled  to 
occur  at  some  future  time  -  if  it  does,  future  iterations  of 
CHEM. CHECK  will  check  for  this  by  examining  the  attributes 
which    contain   these    times   and   acting    accordingly. 

After  any  events  that  might  have  occurred  in  the 
period  DELT  are  scheduled,  ths  routine  D0S21  is  called.  This 
routine  calculates  the  total  dose  received  through  inhala- 
tion and  skin  absorption  during  the  period  DELT.  This 
routine  will  check  the  attributes  of  the  PERSON  tc  see  if 
any  changes  in  protection  occurred  during  DELT  (e.g., 
masking),  and  adjust  accordingly.  This  dose  received  during 
DELT,  for  each  chemical  agent,  is  added  to  the  total  dose 
accumulated  as  of  the  last  CHEM. CHECK,  and  stored  in  the 
array    AGA.CUMDOSE  pointed  to    by   the    attribute   AG. CUM. DOSE. 

After  the  total  accumulated  dose  for  each  agent  has 
teen  computed,  the  routine  CHEMCAS. EFFECTS  is  called.  This 
routine  takes  the  accumulated  dose  and  determines  if,  based 
en  that  dese,  impairment,  incapacitation,  or  death  could 
have  occurred  to  that  person  during  DELT.  Impairment  is 
defined  as  the  point  at  which  symptoms  make  themselves 
apparent  to  the  victim,  so  further  reactive  measures  are 
scheduled  if  the  impairment  dose  is  reached  during  this  DELT 
interval  of  time.  The  updating  of  the  times  at  which  these 
thresholds  are  reached,  for  each  agent,  allows  this  categor- 
ization     tc   be      applied      to    ether     areas      of      the    mcdel       (an 


65 


cbvicus   example    is    removing    the      PERSON    from   the    appropriate 
ALIVE   sex    when    death    occurs). 

2-      The   Routine    UPDATE 

The    UPDATE   routine    performs    the    following    tasks: 

1.  Initializes  certain  global  variables  to  the  correct 
values  for  the  PERSON  being  examined,  such  as 
EEP.G.OLD,     DEP.A.OLD,     CLE. DOSE,     and    OLDCF. 

2.  Gets  the  current  ground  deposition  and  air  concentra- 
tions. If  the  deposition  is  less  than  that  encountered 
previously,  computes  the  current  contamination  level  on 
the   PERSON,    taking   into   account    weathering. 

3.  Updates  CHEMDET,  the  attribute  that  gives  the  detection 
status    of    the    PEFSON. 

4.  Schedules  changes  in  individual  and  collective  protec- 
tion (CP,  OHC,  ttkSK,  and  PF.CHEM)  ordered  by  the  main 
constat     simulation. 

The  UPDATE  routine  is  designed  to  update  the  deposi- 
tion and  chemical  detection  status  of  each  individual  pi ior 
to  the  decisions  and  calls  made  in  the  routine  CHEM. CHECK. 
It  also  allows  the  chemical  protection  category  (individual 
and  collective)  to  be  changed  external  to  the  module,  by 
changing  values  in  the  1 -dimensional  array  CHANGE. ORDER, 
whose    pointer   is   stored   in    the   attribute   CHEM. CHANGE. 

After  the  old  accumulated  dosage  values  are  stored 
in  the  array  OLD. DOSE,  and  the  old  ground  and  air  deposition 
values  have  been  stored  in  the  global  arrays  DSP. G. OLD  and 
DEP.A.OLD,  the  deposition  at  the  current  location  of  the 
PERSON  is  set  at  the  current  concentration  (at  z=0  meters 
for  ground  and  z=2  meters  for  air)  within  the  grid  drawn  by 
NUSSE  II.  Under  normal  circumstances,  the  outside  deposition 
on  the  individual  (that  is,  the  deposition  on  the  exterior 
of   his   collective   protection,    if   any,      and/or   his    individual 
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chemical  protective  garments,  if  any)  is  equal  to  the 
current  deposition  drawn  from  NUSSE  II.  However,  it  is 
possible  for  the  current  NUSSE  II  value  to  be  less  ^han  the 
previous  value  drawn  at  the  last:  update  if  the  individual 
is  departing  an  area  cf  contamination.  •  However,  the  true 
value  for  the  individual,  rather  than  the  terrain  he  is 
standing  upcn,  will  continue  to  be  the  amount  of  agent  with 
which  he  was  previously  contaminated  (as  adjusted  for  decon- 
tamination). As  a  result,  the  model  sets  the  actual  outside 
deposition  ESP.  G. CURS  (j)  for  the  jth  agent  at  the  maximum  of 
the  current  NUSSE  II  deposition  (the  normal  case  scon  after 
an  attack  when  the  agent  is  still  settling)  or  the  previous 
level  EEF-.G.OLD  ( j)  ,  adjusted  for  a  decay  factor  AG.DECAY(j). 
This  latter  factor  allows  for  the  inclusion  of  natural 
weathering  factors  to  reduce  the  agent  deposition  ever  time. 
AG.DECAi"  represents  the  remaining  deposition  as  a  percentage 
of  the  deposition  present  DELT  seconds  earlier.  Although 
this  value  will  likely  be  very  close  to  one  (little  decay 
occurs  in  less  than  10  seconds)  ,  Lz  will  allow  for  the 
inclusion  of  decay  provided  the  machine  arithmeric  cf  the 
computer  upon  which  the  model  is  run  allows  this  level  of 
precision. 

The  routine  updates  the  attribute  CHEM.DET  by 
assigning  it  a  value  cf  one  if  the  individual  had  a  time  of 
detection  assigned  (that  is,  he  did  detect  the  presence  of  a 
chemical  hazard)  during  the  last  iteration.  This  attribute 
is  used  to  determine  if  the  individual  has  detected  the 
(suspected)  presence  of  a  chemical  hazard  for  purposes  of 
warning   nearby    individuals. 

The  last  duty  performed  by  UPDATE  is  scheduling 
protective  status  changes  ordered  externally  to  the  module. 
Since  the  last  time  the  routine  CHEM. CHECK  (and  thus  the 
routine  UEDATE)  was  performed,  some  of  the  variables  of 
CHANGE. ORDER,    stored    in    the    attribute    CHEM. CHANGE,       may    have 
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been  given  non- negative  values  (ths  array  is  initialized  at 
-1  for  every  value) .  The  routine  firs-  checks  to  make  sure 
that  the  ordered  change  has  not  been  previously  implemented. 
If  it  had  been,,  no  changes  are  necessary.  If  the  firs-  vari- 
able, CHANGE.  ORDER  ( 1)  was  set  at  one,  the  individual  was 
directed  to  mask.  As  a  result,  the  MASKING  routine  is 
called,  the  time  of  masking  T.MASK  is  assigned  a  new  value, 
and  T.CHEMCURR  updated  to  allow  for  scheduling  of  subsequent 
actions    in    UPDATE    (if   any)  . 

Changes  in  collective  protection  category  are 
considered   next.  These   changes   are      assumed  to      be   essen- 

tially instantaneous  for  simplicity  of  calculation.  If  the 
change  will  require  any  significant  time  (for  example, 
exiting  a  vehicle  and  walking  to  a  foxhole)  ,  the  interme- 
diate change  should  be  scheduled  explicitly  (in  our  example, 
a  C?  change  from  vehicle  to  in  ths  open  is  scheduled  first 
(to  account  for  the  walking  to  the  foxhole)  and  the  change 
from  being  in  ths  open  to  in  the  foxhole  second).  If  the 
change  is  tc  c?  categories  1,  2,  or  3,  the  overhead  cover 
attribute  (OHC)  is  adjusted  as  well.  The  overhead  cover  can 
also  be  changed  separately  (CHANGE. ORDER (3) =1) .  This  would 
occur  if  temporary  protection  were  ordered,  e.g.,  covering  a 
foxhole    with  a    poncho. 

Finally,  changes  in  the  individual  protection  for 
any  or  all  of  the  seven  body  areas  can  be  ordered.  The  new 
level  of  protection  is  specified  in  the  CHANGE. ORDER 
subscripted  variable,  so  changes  to  protection  levels  less 
than  the  maximum  can  be  made.  This  allows  the  commander  to 
change  the  individual  chemical  protective  level  for  all 
PERSONS  in  a  given  unit  by  changing  the  appropriate  values 
within    CHANGE.ORDER. 

After  each  action  directed  by  CHANGE.ORDER  is 
performed,    the    array   values    are   returned   to   -1. 
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3.      The   Routine    MASKING 

The   routine    MASKING    performs    the    following   tasks: 

1.  Simulates    donning  of  the    protective   mask. 

2.  Assigns  the  tiie  that  masking  was  complete  to  the 
attribute  T.MASK,  updates  the  attribute  MASK  and  the 
array    values   PFA.CHEM(2)     and   TA.  PP.  CHEM  (  2)  . 

3.  Determines  whether  or  not  the  mask  will  leak  with 
respect  to  vapor;  if  it  does,  determines  the  amount  of 
leakage  and   stores   the    value   in    the   attribute    MASKLEAK. 

4.  Determines  whether  or  not  the  mask  will  leak  with 
respect  to  liquid;  if  it  will,  determines  the  amount  of 
leakage  and  stores  the  value  in  the  array  value 
FFA.LEAK(2)  . 

The  routine  MASKING  is  used  to  simulate  donning  the 
protective  mask.  It  is  called  whenever  the  model  events  call 
for    masking,   regardless   of    the   cause. 

The  routine  determines  the  time  it  tDok  this  PERSON 
to  don  the  mask  by  accessing  the  global  variable  DT.MASK, 
which  is  a  N. SIDE  x  3  array.  The  first  dimension  contains 
the  number  of  the  side  (i.e.,  the  force  with  which  the 
PERSON  is  assigned  to);  the  second  dimension  contains  the 
distribution  of  masking  times  (distribution  type  and  zero, 
one  or  twc  parameters).  A  random  number  is  drawn  from  that 
distribution  and  assigned  to  the  temporary  variable  T.M.D. 
The  attribute  T.MASK,  representing  the  time  at  which  the 
donning  process  was  completed,  is  set  at  the  current  simula- 
tion time  for  the  individual,  T.CHEMCURR,  plus  T.M.D,  and 
the  attribute  MASK  is  set  at  one,  indicating  that  a 
protective    mask    is    worn. 

Because  the  mask  also  provides  protection  to  body 
area  2  from  liquid  chemical  agent  hazards,  the  value 
PFA.CHEM(2)  is  updated  to  show  that  added  protection,  and 
the    time    TA  .PP.  CHEM  (2)    is   changed   as    well. 
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Figure   3. 10        Routine    MASKING, 


73 


Before  returning  to  the  calling  routine,  it  must  be 
determined  whether  or  not  the  mask  will  leak  due  to  improper 
donning,  agent  trapped  under  the  mask,  improper  sizing, 
tears,  ccmbat  damage,  etc.  If  the  mask  had  been  tagged  as  a 
leaker  at  seme  earlier  time  (for  example,  this  occurs  if  the 
PERSCN  receives  some  deposition  of  the  agent  en  his  face  and 
dons  the  mask  without  decontaminating  his  face),  then  this 
question  has  been  resolved  and  the  routine  continues.  If, 
however,  the  possibility  of  the  mask  leaking  has  not  yet 
been  resolved,  the  probability  that  this  will  occur  is 
contained  in  a  global  variable  PC.flSKLEAK.  This  is  compared 
to  a  uniform  (0,1)  number  and  if  PC.MSKLEAK  is  greater  than 
or  equal  to  that  number,  the  tnasK  will  leak.  The  amount  of 
leakace,  expressed  as  the  percentage  of  the  outside  concen- 
tration cf  chemicai  agent  in  the  air  received  into  the  mask, 
is  set  by  accessing  the  N. SIDE  X  3  global  array  D.MSKIEAK, 
and  assigning  th°  random  number  drawn  from  the  distribution 
indicated  by  the  array  to  the  attribute  MASKLEAK.  This 
tercent^oe  is  assumed  to  be  the  same  for  all  airborne 
agents,  since  it  represents  a  measure  cf  the  amount  of 
agent-laden    air    bypasses   the   mask's    filter    elements. 

A  similar  check  is  mad=  tc  see  if  the  mask  will  leak 
with  respect  to  liquid  hazards.  Since  the  leakage  to  liquids 
and  vapors  is  likely  to  be  from  different  causes;  the 
issues  are  handled  separately.  If  the  mask  has  not  previ- 
ously been  tagged,  the  variable  PC.  PF  .LEAK  (2)  is  compared  to 
a  uniform  (0,1)  random  number.  If  the  mask  will  leak  with 
respect  tc  liquids,  the  value  of  PFA.LEAK(2)  is  drawn  from 
the    distribution   D.PF.LEAK. 

After  these  checks  have  been  made,  the  routine 
returns   to   the    calling  program. 
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u-       The   M^liUSi    DETECTION 

The   DETECTION   routine    performs    the    following    tasks: 

1.  Schedules,  through  assignment  to  the  attribute 
I.CKEttDET,  detection  of  a  chemical  agent  hazard  due  to 
physical  signs. 

2.  Schedules  detection  of  a  chemical  agent  hazard  due  to 
proximity  to  a  chemical  alarm  or  another  PERSON  that 
has   previously    detected  the    hazard. 

3.  Schedules  injection  of  a  nerve  agent  antidote  upon 
detection  of  the  hazard,  if  desired  (this  would  be  a 
wrongful  injection  based  upon  detection,  not  symptoms 
of   nerve  agent    poisoning). 

H.  If  detection  occurs,  calls  the  routines  OKC,  CECON  and 
HOPP. 

The  routine  detection  simulates  the  process  whereby 
an  individual  may  detect  the  presence  of  a  chemical  agent 
through    physical   signs,    such   as   smoke,      vapor,      or    mist,      or 


reaction 
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yaptei.  , 


"niDUGi    the 


agent  alarms;  and  through  proximity  to  other  individuals  who 
have  detected  such  a  hazard  -  hearing  their  alarm  or 
noticing  their  reactions  (such  as  masking).  The  word  detec- 
tion in  this  context  means  the  creation  of  a  mental  attitude 
or  suspicion  of  the  threat  sufficient  to  cause  the 
individual  to  react  as  if  there  was  a  chemical  agent 
present. 

The  routine  begins  by  checking  to  see  if  there  is 
any  chemical  agent  present  in  the  ground  or  in  the  air  at 
the  PERSONS  location.  If  there  is  not  agent  present,  then 
it  is  assumed  that  detection  due  to  physical  signs  will  not 
occur,  and  the  routine  moves  down  to  the  point  where  it 
begins  to  check  for  alarms  or  persons  nearby.  If  there  is 
agent  present,  then  the  array  DT. DETECT  is  accessed. 
DT. DETECT    is      a    4      X    N. AGENT      X    5      X    2      X    3      array    which      is 


75 


OEP.G.CURR 

(J)  2 

MIN.G.CHEM 

(J) 


NO 


YES 


ORAM 

PT.CHEMDET 

FROM 
DT.CETECT 


/    US     \  YES 

\      PT.CMEMOET   ) 


ALARM. OIST  «■ 
ALARM, OIST. MAX 

♦  1 


LOOP 


' ACROSS 
ALL 

PERSONS, 
ALARMS 


COMPUTE 

DISTANCE  TO 

PERSON  OR  ALARM 


YES 


6 


DEP.A.CURR 

(J)  J 

MlN.A.CHEM 

(J) 


NO 


YES 


COMPUTE 

VALUE    "OR 
T.CHEMOE 


U 


DISTANCE 
i  ALARM. 
OIST. MAX 


NO 


T.CHEMOE T 

*   0  OR 
WARNING  - 

\ 


NO 


YES 


COMPUTE 
ALARM.DIST 


Figure  3.11    Routine  DETECTION 
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Figure  3.13        Routine    DETECTION,    Continuation    B. 
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accessed  according  to  the  chemical  situation  CHEKSIT 
(dimension  one),  the  agent  (dimension  two),  the  collec^iv^ 
protection  category  (dimension  three)  ,  the  mask  beir.g  en  or 
off  (dimension  four),  and  the  type  of  distribution  and 
parameters  (dimension  five).  The  numbers  in  the  last 
dimension  define  a  distribution  of  the  probability  that  the 
individual  will  detect  the  presence  of  the  chemical  agent 
from  given  signs,  under  the  conditions  specified  in  the 
o--her  four  dimensions,  within  a  time  interval  DELT.  As  a 
probability,  the  value  must  be  a  number  between  zerc  and 
one,  so  the  B2TA  distribution  is  recommended  as  a  general 
distribution  which    can   be  fit    by    the    user. 

The  number  drawn  from  the  distribution  DT. DETECT  is 
assigned  to  the  temporary  variable  PT.CHEMDET.  PT.CHEMDET 
represents  the  probability  of  detection  during  this  itera- 
tion frcm  the  glimpse  detection  model  discussed  in  Section  B 
of  this  chapter.  As  such,  it  is  compared  to  a  uniform  (0,1) 
random  number  to  determine  if  detection  occurred  during  the 
last  DELT  seconds.  If  ?T.CH?!iDET  is  greater  than  or  equal  to 
the  random  number,  l.CHEMDET  is  assigned  a  value  according 
to    Equation    3.  2  : 

(1    -    PT.CHEKDET)     *     (1. CURRENT    -    T.CHEHCDER)     +    T.CHEMCOEE 

(eqn    3.2) 

This  formula  simply  assigns  the  time  of  detection  as 
the  reflected  probability  times  the  remaining  interval  of 
detection  (DELT  except  when  crossing  areas  of  residual 
contamination)  added  to  the  beginning  of  the  interval  of 
detection,    T.CHEMCURB. 

The  above  actions  are  performed  for  each  agent  with 
a  significant  ground  or  air  concentration  present.  If  more 
than  one  agent  would  have  caused  detection,  T.CHEMDET  is  set 
at   the   earliest    time. 
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The  next  task  performed  by  the  DETECT  routine  is  to 
determine  if  the  PERSON  detached  the  presence  cf  an  agent 
based  on  a  chemical  agent  alarm  or  by  noticing  a  parson 
nearby  who  has  detected  the  agent.  He  is  allowed  to  see  or 
hear  any  ether  PERSON  or  ALARM  within  a  distance  of 
ALARM  .DISI. MAX  (a  user-supplied  global  variable)  meters  from 
his  position  (to  simplify  matters,  his  current  position  for 
this  check  is  the  position  at  the  current  update  time)  .  In 
crder  for  a  PERSON  or  ALARM  to  warn  himf  it  must  have  previ- 
ously detected  the  chemical  agent,  having  a  time  of 
detection  T.CHEMDET  less  than  or  equal  to  -.he  end  of  the 
last  iteration  (but  net  equal  to  zero,  which  indicates  that 
no  detection  has  occurred).  For  PERSONS,  this  means  that  the 
individual  detected  the  attack  during  the  ora,'ioi.is 
CHEM. CHECK  iteration,  which  prevents  the  order  of  the 
sequence  of  PERSONS  updated  during  the  current  iteration 
influencing  the  results  (that  is,  if  he  detects  in  this 
iteration,  he  cannot  warn  others  until  the  next,  so  an  indi- 
vidual's chance  of  detection  is  independent  of  whether  he  is 
updated  before  or  after  another  during  the  current  itera- 
tion).. The  ALARMS  are  updated  prior  to  the  PERSONS,  so  any 
alarm  that  sounded  during  this  DSLT  being  examined  .  can 
influence    pecple  nearby. 

If  one  or  more  PERSONS  or  ALARMS  nearby  has  detected 
a  chemical  agent,  than  the  distance  in  meters  from  his  posi- 
tion to  the  position  of  the  warning  entity,  ALARM .  DI.ST,  will 
be  less  than  or  equal  to  the  distance  ALARM. DIST . MAX,  so  the 
PERSON  being  updated  will  have  a  time  cf  detection  assigned 
to    him    based  on    Equation    3. 3: 

T.CHEMDET       =      Min       (NE      0)  [       T.CHEMDET,  ((ALARM. DIST      / 

ALARM.  DIST.  MAX)      *     (T. CURRENT    -    T.CHEMCURR)     ♦    T.CHEMCURR] 

(eqn    3.3) 
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This  formula  represents  the  ratio  of  ALARM. DIST  ever 
ALARM  .DIS1. WAX  times  the  detection  interval,  which  is  added 
to  the  current  simulation  time.  If  the  individual  happened 
to  detect  the  chemical  agent  through  physical  signs  and 
proximity,  he  is  assigned  the  earlier  of  the  two  times  as 
his    detection  attribute. 

If  he  failed  to  detect  the  presence  of  a  chemical 
hazard,  control  is  passed  back  to  CHEM. CHECK;  otherwise,  the 
current  simulation  time  T. CHEMCORR,  is  assigned  the  value 
for    the    FERSONs    detection    time,    T.CHEMDST. 

If  the  PERSON  is  inside  a  vehicle  with  overpressure 
(CP=1)  ,  the  routine  returns  to  CHEM. CHECK  as  before  since  it 
is  assumed  that  scldiers  inside  closed  vehicles  with 
ever  pressure  will   net   need    to    react    to    the    detection   event. 

If  the  PERSCN  is  not  in  a  CP  equal  to  1,  then  a 
check  is  made  to  see  if  he  is  masked.  If  not,  the  mask 
routine  is  called  and  T.CHEMCURR  is  updated,  k  check  is  mads 
to  see  if  the  MASK  attribute  is  equal  to  one  because  of 
masking  scheduled  previously  (in  routine  UPDATE  or 
CHEM. CHECK) ;  if  so,  it  is  integrated  into  the  current  event 
sequence  by  updating  T, CHEMCORR  to  that  T.KASK  value 
previously   assigned. 

The  next  check  is  made  to  see  if  the  PERSON  will 
inject  a  nerve  agent  antidote  based  on  a  panic  reaction  to 
the  detection  of  the  attack.  Doctrine  calls  for  atropine  or 
other  nerve  agent  antidote  (depending  upon  the  country)  to 
be  injected  only  after  symptoms  appear.  However,  if  the  user 
desires,  he  can  cause  a  certain  percentage  of  the  troops  to 
wrongfully  inject  themselves  with  antidcte  by  setting  a 
nonzero  value  to  the  global  variable  PC.NAA.  If  a  uniform 
(0,1)  randem  number  is  less  than  or  equal  to  PC.NAA,  then 
the    NflA   routine    is    called  and    injection    will   occur. 
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Since  the  PERSON  at  this  point  will  have  detected 
the  presence  of  a  chemical  agent  during  the  iteration  (since 
he  has  net  yet  exited  the  routine)  ,  the  DETECTION  routine 
will  schedule  the  appropriate  reactive  measures  by  calling 
the  routines  OHC,  DECON,  and  MOPP.  Control  is  then  passed 
back    to   the   calling    routine. 

5.      The    Routine    CHC 

The   routine    CHC   performs   the    following  tasks: 

1.  If  the  PERSON  is  net  already  under  overhead  cover, 
decides  if  the  PERSON  will  seek  overhead  cover  inside  a 
vehicle  or  bunker,  create  temporary  overhead  ccv?:,  or 
fail  to  assume  overhead  cover  (thereby  implicitly 
assuming  that  there  is  no  persistent  agent  J-hr3at  in 
the   air) 

2.  If  overhead  cover  is  created  or  assumed,  draws  a  time 
for  this  to  be  completed  and  assigns  it  to  the 
attribute    T.OHC. 

The  routine  CHC  is  designed  to  simulate  the  seeking 
or  creation  of  overhead  cover  as  a  reaction  to  the  detection 
(denoting  a  suspicion  rather  than  certainty)  cf  the  presence 
of  a  persistent  chemical  agent  attack.  Doctrinally,  if  the 
PERSON  suspects  that  he  is  being  directly  attacked  by  a 
persistent  chemical  agent,  he  will  seek  overhead  cover  in 
the  form  cf  vehicles,  bunkers,  etc.,  or  create  temporary 
overhead  cover  by  covering  himself  with  a  poncho,  chemical 
protective   cape,    etc. 

The  routine  first  checks  to  see  if  the  person  is 
under  overhead  cover  -  T.OHC,  the  time  that  overhead  cover 
was  assumed,  is  not  equal  to  zero,  and/cr  the  collective 
protection  attribute  CP  is  equal  to  1,  2,  or  3 .  If  the 
person  is  not  presently  under  overhead  cover,  the  prob- 
ability   that  he    will    seek  overhead  cover,    PROB,      is   compared 
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to  a  random  uniform  (0,1)  number  as  before.  PROB  is  an 
argument  passed  to  it  by  the  calling  routine.  In  all  cases 
except  when  the  OHC  routine  has  been  called  by  ~he  routine 
DEC0N2,  this  variable  will  be  equal  to  a  global  variable 
PC. OHC,  PC. OHC  is  a  user-supplied  global  variable  that  sets 
the  probability  that  a  PERSON  who  has  been  directly  attacked 
by  a  chemical  agent  (CHEHSIT  =  1)  or  is  receiving  indirect 
fire  and  is  assuming  it  is  a  chemical  agent,  will  assume 
that  the  threat  posed  is  a  persistent  agent  and  that  in 
doing   so,    will    seek    overhead  cover. 

When  the  OfiC  routine  is  called  by  the  DECCN2 
routine,  the  value  of  PROS  will  be  equal  tc  1,  since  decon- 
tamination will  only  be  performed  under  some  type  of 
c ve r  h  e a  d    cc  v er . 

If  the  PEF.SCN  does  decide  to  seek  overnead  cover 
(PROE  was  greater  than  or  equal  to  a  uniform  (0,1)  random 
number) ,  he  must  either  enter  a  vehicle,  a  bunker,  or  create 
temporary  overhead  cover.  As  a  simplification,  it  is  assumed 
that  th ^  relative  ^r ctabili t'*  of  choosing  one  of  these  thre  — 
actions  can  be  expressed  in  a  single  global  variable  for  ail 
PERSONS.  In  reality,  this  would  depend  on  his  mission,  the 
distance  to  vehicles  and/or  bunkers,  whether  or  not  these 
vehicles  cr  bunkers  were  filled,  etc.  and  these  actions 
should  be  oied  in  with  the  combat 'situation  represented  in 
the  main  combat  simulation.  This  detail  might  possibly  be 
added  at  a  later  date  as  an  enhancement  to  the  present  model 
(see  Chapter  4) .  Users  concerned  about  this  can  set  the 
probabilities  of  the  first  two  actions  to  zero  and  force 
everyone   to    create   temporary   cover. 

The  probabilities  contained  in  PC. ACT. OHC,  the 
N.SIDE  X  2  array  that  contains  the  probability  of  going  into 
a  vehicle  (PC.  ACT. OHC  (SIDE,  1)  )  and  the  probability  of  going 
into  a  bunker  (PC. ACT.OHC(SIDE ,2) )  for  each  side.  The  prob- 
ability     of   creating     temporary  overhead   cover  is      one    minus 
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the  sum  of  the  other  two.  These  probabilities  are  compared 
to  a  uniform  (0,1)  random  number  to  determine  the  action 
that  will  b€  taken.  The  time  required  to  assume  that  over- 
head cover,  given  the  action  taken,  is  found  from  the  N.SIDE 
X  3  X  3  array  DT.OHC.  The  first  dimension  gives  the  side  of 
the  PERSON,  the  second  dimension  is  indexed  by  the  three 
actions,  and  the  third  dimension  gives  the  distribution  and 
up  tc  two  parameters.  The  value  drawn  from  DT.OHC  is 
assigned  to  the  temporary  variable  T.OHC.D,  and  T.CP,  the 
time  that  the  new  CP  category  was  assumed  (when  applicable) 
is  T.OHC.D  +  T.CHEMCUEE.  In  all  cases  the  time  that  tempo- 
rary overhead  cover  was  created,  T.OHC,  is  T.OHC.D  plus 
T.CHEMCURE. 


6.      The   Rout  in 


e     nuri 


The    MOP?   routine    performs    the    following    tasks: 
1.    Checks   the    levels  of   chemical      protection   stored    in    the 
array      PFA.CHEM,      for      body      areas       1    through      7,         and 
comperes      tnem    tc      ti.e      icvs j.s      or    maximum      prctecir en, 
FF.MAX. 
2.      If      any    of  the     levels    of    protection      have    associated 
times    indicating     that    the   denning   of      maximum   chemical 
protection    is      scheduled    (by   other      means,      such      as   on 
crder)     but    not    yet    completed    (the   time   that    denning    the 
protection    ever   area   i    was  completed,    TA .PF.CHEM  (i) ,    is 
after    the    current  simulation      time,      T.CHEMCURE),      then 
this   scheduled    donning    is    incorporated   into    the   current 
MOPP   seguence    by  assigning   T.CHEMCURE   the  TA.  PF  .CHEM  (i) 
value. 
3.    For   areas      of    the      body   where     the    level      of    protection 
worn   or  scheduled      to    be    worn   is   not      the  maximum    level 
(full   chemical    protection),      the    routine   draws   the   time 
it    wculd      take    tc     don    the      item    from      the    distribution 
array    CT.  PF,      schedules   the   time   that    the   donning    would 
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be  complete,  Tfl.PF  .CHEH  (i)  ,  updates  the  current  time 
for  that  PERSON'S  activities,  T.CHEMCORR,  and  assigns 
the  maximum  PF  level  to  the  appropriate  PF.CHEM 
attribute. 
U.  Cetermines  if  each  item  of  protective  clothing  or  gear 
will  leak;  it  it  w.:.ll  ,  assigns  a  leakage  factor  to  the 
array    PFA.LEAK. 

The  MOPP  routine  is  called  whan  the  PERSON  suspects 
that  he  has  encountered  a  persistent  chemical  hazard,  and 
will  increase  his  level  of  protection  to  the  maximum  level 
cf  chemical  protection  specified  for  his  side  in  the  global 
variable  EF.MAX(i)  (i  =  1,...,7).  The  current  level  cf  protec- 
tion for  each  body  area  1  through  7  is  contained  in  the 
array  TA. PF.CHEM,  whose  pointer  is  stored  in  the  attribute 
PF.CHEM.  This  level  of  protection  may  currently  be  wcrn 
(that  is,  the  time  that  level  was  assumed  is  in  the  past) 
or  scheduled  to  be  worn  (the  PERSON  is  in  the  iridst  of 
chemical  actions,  and  is,  or  shortly  will  be,  donning  items 
cf  chemical  protection  per  crder,  thus  the  time  at  which  the 
item    is   on   the    PERSON,   TA.P  F.CHEM  (i)  ,    is    in   the      future). 

If  the  PERSON  is  currently  wearing  an  item  of  full 
chemical  protection  (e.g.,  the  protective  mask,  which  will 
protect-  body  ar?a  2),  then  the  routine  checks  to  see  if  the 
donning  cf  this  itam  has  been  completed  or  is  scheduled  to 
be  completed  at  some  time  after  the  individual's  current 
simulation  time,  T.CHEMCORR.  If  the  item  has  already  beer- 
donned,  then  the  routine  will  loop  to  the  next  body  area  in 
numerical  crder  (which  is  also  the  logical  donning  order,  by 
design) .  If  the  item  is  scheduled  to  be  donned,  then  this 
scheduling  is  worked  into  the  current  schedule  by  assigning 
T.CHEMCORR  the  time  at  which  that  scheduled  action  will  be 
completed,  before  moving  en  to  the  next  body  area.  As  a 
result,      even  if      only   part    of    the   body    was      scheduled    to    be 
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protected  by  previous  orders,  those  scheduled  times  will  be 
worked  into  the  current  scheduling  sequence,  and  the 
routine  will  still  schedule  times  for  the  remaining  insuffi- 
ciently protected  body  areas.  If  all  items  of  the  body  have 
been  protected,  the  routine  will  return  to  the  calling 
routine.  Note  that  T.CHEMCURR  has  been  updated  in  cases 
where  the  individual  has  been  scheduled,  but  has  not  yet 
completed,    donning    full   protection. 

For  each  area  of  the  body  which  has  not  yet  been 
afforded  full  protection,  the  routine  enters  the  array  DT.PF 
tc  ottair.  the  appropriate  distribution  from  which  to  draw 
the  time  it  took  to  don  that  particular  item  of  protective 
clothing.  DT.PF  is  a  4-dimensional  array,  ordered  by  system 
type       (VZH. SYS .  T YP2)  ,  dimension      one;         by        weapon      type 

(VEH .  wPN.  IYPE)  ,  dimension  two;  the  seven  body  areas,  dimen- 
sion three;  and  the  distribution  type  with  two  parameters, 
the  fourth  dimension.  Use  of  the  system  and  weapon  type 
distinguishes  between  the  two  sides,  and  allows  different 
values  to  oe  assigned  tc  tne  dj.stri.buti.ons  depending  upon 
the  job  of  the  individual  -  a  crew  m saber  on  an  H1  tank  may 
take  longer  to  don  full  protection  than  an  infantryman  in 
the    open,    for  example. 

If  an  item  of  protective  clothing  has  been  denned  at 
this  time,  the  routine  will  check  to  see  if  this  item  of 
gear  will  leak  due  tc  tears,  combat  damage,  improper  donning 
cr  fit,  agent  trapped  under  the  clothing,  etc.  It  does  this 
by   comparing     a    uniform    (0, 1)  random    number  to      the    prob- 

ability that  a  given  item  of  full  chemical  protection  over 
body  area  i  will  leak,  PFA.LEAK(i).  If  it  will,  the  amount 
of  leakage,  expressed  as  a  percentage  of  the  deposition  on 
the  outside  of  the  garment,  is  drawn  from  the  distribution 
D.PF.LEAK,  an  N.SIDE  X  7  X  3  distribution  (the  number  of 
sides  by  the  seven  body  areas  by  the  distribution  type  and 
two  parameters),  and  assigned  to  the  array  PF&.LSAK,  whose 
pointer    is   stored   in   the-  at  tribute  PF.LEAK. 
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If  the  protective  mask  was  denned  (body  area  2)  ,  in 
addition  tc  assigning  values  to  TA.  PF.CHEM  (2)  ,  ?FA.CKEM(2), 
and  FFA.L£AK(2)  ,  the  routine  will  update  the  values  for 
T.MASK,  MASK,  and  HASKLEAK  in  a  similar  manner  (for  further 
discussion,    see      the    MASKING   routine    in    this   section). 

After  full  chemical  protection  has  been  assigned  to 
all  seven  body  areas,  and  the  leakage (if  any)  has  been 
assessed,   the   SOPP    routine    returns  to    the   calling    program. 

7-     ItJ  Bo a tine    cfcon 

The   routine    EFCON   performs  the    following   tasks: 

1.  Separates  out  the  case  of  immediate  decontamination 
after  initial  detection  of  the  chemical  agent  hazard 
from  the  cc.s~  cf  delayed  is  contamination  after  the 
appearance    of    symptoms    of    chemical    agent    poisoning. 

2.  For    immediate    decontamination: 

a.  Determines  if  decontamination  will  occur  using 
the    parameter   PC.IMM . EECON. 

t.  If  decontamination  does  not  occur,  checks  to  see 
if  any  body  area  with  less  than  the  maximum  level  cf  chem- 
ical protection  was  contaminated.  If  so,  sets  a  PFA.LEAK 
value  to  account  for  agent  trapped  under  the  protective 
garment. 

c.  If  decontamination  does  occur,  schedules  deconta- 
mination of  the  skin  first,  then  clothing  second,  through 
calls  to  routine  DECCN2.  The  time  required  to  decontaminate 
multiple  agents  on  the  skin,  if  applicable,  is  added  tc  the 
time  required  to  decontaminate  one  agent  using  a  multiplier 
AG-MOLT.CFCCN. 
2.    For   delayed    decontamination: 

a.  Schedules  decontamination  cf  ail  body  areas 
through    calls   to   DECCN2. 
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Figure    3.17        Routine    DECOH,    Continuation    A, 
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t.    Adds    the    time   required   to    remove   items    of    protec- 
tive   clothing   before    decontaminating    by   doubling   the   donning 
time . 
U.    Determines  if      the    protective      mask    will      leak    using      the 

parameter  PC.  MSKLEAK.      If      it    will,       sets   a      value    or.   the 

attribute  MASKLEAK. 

5.  Calculates  the  total  dose  received  during  decontamination 
for  each  body  area  by  calling  the  routine  DEC0N2,  then 
summing  across  all  body  areas  to  give  the  total  dosage 
fcr   each   agent. 

6.  If  the  decontamination  period  extends  beyond  T. CURRENT, 
then  the  average  dcse  that  would  be  received  during  each 
DELT  period  from  the  current  time  (T.  CHSMCURR)  until  the 
-ime  decontamination  is  complete  (T.DECON)  and  assign; 
this  average  DELT  dcsa  to  the  array  AG  A. DSCON . DOSE  whose 
pointer    is  stored    in   the    attribute    AG.  DECON.  DOSE. 

The  DECON  routine  is  designed  zo  simulate  the  decon- 
tamination cf  any  areas  of  the  body  that  are  not  covered  by 
full  chemical  protection  at  the  time  that  the  chemical  agent 
is  detected,  or  all  areas  of  the  body  in  the  event  that 
decontamination  is  performed  at  the  time  that  symptoms 
become    apparent. 

It  is  assumed  that  there  are  three  times  when  decon- 
tamination might  be  performed.  The  first  is  immediately 
prior  to  donning  full  chemical  protection  after  the  detec- 
tion of  a  chemical  hazard.  If  the  individual  suspects  that 
the  hazard  was  posed  by  a  persistent  or  semi-persistent 
chemical  agent  (vice  a  nonpersistent  agent),  and  that  seme 
agent  may  have  landed  on  the  body,  he  will  decontaminate 
those  areas  not  covered  by  full  protection.  This  implicitly 
assumes  that  the  person  will  decontaminate  clothing  as  well 
as  skin  net  covered  by  a  chemical  protective  garment,  prior 
to    donning      the    garment.         This   assumption      is   justified     by 
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examining  the  alternatives  presented  to  the  individual  :  if 
he  dens  the  garment  without  decontaminating  exposed 
clothing,  the  effect  will  likely  be  worse  than  if  he  delayed 
donning  until  decontamination  could  be  accomplished,  since 
he  would  trap  agent  under  tha  garment  and  contaminate  the 
inside   of   the   protective   garment. 

The  second  time  that  a  person  might  decontaminate  is 
when  he  has  detected  the  appearance  of  symptoms.  If  he  is 
not  in  full  chemical  protection,  these  symptoms  will  prob- 
ably induce  him  to  assume  contamination  and  react 
accordingly,  depending  on  the  agent  involved.  Similarly, 
even  if  he  is  in  full  protection,  the  appearance  of  symptoms 
may        induce     the        removal        of        the      protection,  hasty 

decontamination,    and   renewal   of  the    protection. 

The   decision      node    between   the   two      circumstances    is 

the    attribute   T.  IMPAIR.    If    T. IMPAIR    is   not    equal    to    zerc    for 

'ft 
the      agent  concerned,         then        symptoms      have         appeared; 

otherwise,    they    have   not. 

The  third  tise  that  decontaminati on  flay  be  required 
is  when  orossing  an  area  of  contamination  without  full  chem- 
ical protection.  When  a  person  discovers  that  he  has  been 
traversing  an  area  contaminated  with  a  persistent  chemical 
agent,  he  will  decontaminate  all  exposed  areas  and  don  full 
protection.  The  pr ctabilities  are  bypassed  in  this  case 
since    it    is   assumed    that   decontamination   will   occur. 

Ihe  deposition  on  the  PERSON  is  assumed  to  be  the 
linearly  interpolated  value  between  his  old  deposition 
DEP.G.OLD  and  his  current  deposition  DEP.G. CORR.  This  is 
found  by  calling  the  routine  DEPOSITION  with  both  the  start 
and  end  times  equal  to  the  current  simulation  time 
T.CHEMCUBB. 

If  the  PERSCN  has  not  shown  symptoms,  the  prob- 
ability of  his  assuming  that  the  agent  is  persistent  and 
that    he    is   contaminated   is      expressed   in   the   global    variable 
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PC, IMK. E5CGN.  If  he  chooses  not  to  decontaminate ,  then  a 
check  is  nsade  to  see  if  he  was,  in  fact,  contaminated.  If 
he  was,  then  the  values  in  the  array  PFA.LEAK  (whose  pointer 
is  stored  in  the  attribute  PF.LEAK)  are  assigned  positive 
values  in  all  cases  where  his  current  protection  factor  for 
body  area  i  (PFA . CHEM (i) )  is  not  the  protection  factor 
belonging  to  the  maximum  chemical  protection  (PF.MAX(i)), 
reflecting  ~he  fact  that  he  will  have  agent  trapped  under 
his  protective  garments  when  he  chooses  to  don  them.  Tf  he 
does  choose  to  decontaminate,  then  he  will  do  sc  for  ail 
areas   of   the  body  not  currently   fully   protected. 

The  exposed  skin  is  decontaminated  first.  This  is 
accomplished  by  calling  the  routine  DSC0N2.  Ail  areas  that 
were  not  exposed  skin  (PF  =  1)  or  fully  protected  '.?  7  - 
PF.MAX)  are  decontaminated  next  through  a  call  to  routine 
DEC0N2. 

For  each  area  not  fully  protected,  a  time  to  both 
decontaminate  and  den  the  appropriate  protective  iterr  is 
determined  based  on  the  H.5IDE  X  11.  AGENT  17  X  3  array 
DT.DECON.  The  first  dimension  indicates  the  side  of  the 
PERSON;  the  second  dimension  indicates  the  agent;  the  third, 
the  area  of  the  body;  and  the  fourth,  the  distribution  type 
and  up  tc  two  parameters.  The  time  to  accomplish  the  decon- 
tamination of  that  body  area  and  Ion  the  item  of  protective 
clothing,  T.DECON.D,  is  added  to  T.CHEMCJHR  is  computed 
through  a  call  to  the  routine  DEC3N2.  DECON2  serves  as  a 
subroutine  to  actually  compute  the  decontamination  times  and 
dosages  received  during  that  time  for  each  area  of  the  body 
for    all    agents    present  on  the   skin. 

If  the  situation  involved  delayed  decontamination, 
then  the  seguence  above  is  followed,  except  all  body  areas 
are  decontaminated  regardless  of  the  level  of  protection  at 
the  time  decontamination  is  performed.  The  times  to  decon 
and  den  the  protective  garment  are  doubled  to  reflect  the 
time    to   remove   the   old  protective   item   and    decontaminate   it. 
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After  each  decontaminated  area  is  covered,  a  leakage 
factor,  if  any,  must  be  determined.  The  probability  that  a 
given  protective  item  will  leak  due  to  inadequate  decontami- 
nation, improper  donning,  tears,  combat  damage,  etc  are 
reflected      in      a      global   array      PC. PF. LEAK.  The      variable 

PC. PF.LEAK  (i)  is  compared  to  a  uniform  random  number  to 
determine  if  the  protective  garment  covering  skin  area  i 
will  leak.  If  it  will,  then  the  amount  that  it  will  leak, 
PFA.LEAK(i),  expressed  as  a  percentage  of  the  deposition  on 
the  exterior  of  the  protective  item,  is  drawn  from  a  distri- 
bution determined  by  the  7X3  array  D. PF.LEAK.  The  first 
dimension  indicates  the  body  area  concerned;  the  second 
indicates   the   distribution    type   and   up   to   two    parameters. 

This  leakage  factor  for  the  mask  is  determined  in 
the  same  manner  as  for  the  protective  areas  of  the  tody, 
using  the  probability  that  it  will  leak,  PC.MSKLEAK  and  the 
array  containing  the  distribution,  D.MSKLEAK.  The  signifi- 
cant difference  between  the  two  is  that  the  MASKLEAK 
attribute  reflects  the  leakage  of  agent  found  in  the  air 
into  the  respiratory  system,  causing  an  inhalation  dose;  the 
PFA.LEAK  array  values  reflect  the  leakage  of  skin  protection 
over    various  areas    of   the   body,    causing      an   absorption    dose. 

Eecause  the  decontamination  process  is  likely  to 
stretch  cut  ever  many  iterations  of  CHEM. CHECK,  and  because 
the  dosage  received  during  the  time  that  decontamination  is 
in  process  is  a  function  of  the  decontamination  rate  (the 
array  DCR) ,  the  dosage  received  during  the  time  of  deconta- 
mination is  computed  by  calling  the  routine  DEC0N2.  The 
reasoning  behind  this  calculation  and  the  process  of 
determining   the    dose    is    found    in    Appendix    A. 
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8-     Ihl  Ratine    EEC0N2 

The  routine  DZC0N2  performs  the  following  -asks  for 
each    body   area: 

1.  Determines  hew  sany  agents  are  present  on  the  skin  and 
clotting  at  the  time  of  decontamination.  The  routine 
draws  the  time  to  decontaminate  the  first  agent 
T.DECON.D  from  the  array  DT.DECON.  If  multiple  agents 
ar=  present,  it  will  repeatedly  multiply  MULT. AG. DECON 
*    T.DECON.D. 

2.  Computes  the  dosage  received  during  decontamination  for 
each  agent  present.  In  the  case  of  crossing  a  contami- 
nated area  on  foot  where  the  PERSON  remains  standing 
prior  to  decontaminating,  the  dose  is  computed  only 
over  areas  5,  6,  and  7  (these  are  the  only  areas 
assumed  contaminated  -  see  Section  B  at  the  beginning 
of   this  chapter) . 

3.  Schedules  the  denning  of  protective  gear  and  assigns 
values  to  the  array  TA.PF.CHEM,  whose  pointer  is  stored 
in    the    attribute  T. ??. CHEM. 

The  routine  DEC0N2  is  called  from  the  routine  DECON 
for  each  area  of  the  body  not  fully  protected,  so  the 
following   explanation   refers   to   each    area    separately. 

The  first  check  performed  by  the  routine  DEC0N2  is 
to  see  if  there  are  multiple  agents  causing  contamination 
(or  any  -  it  is  possible  for  a  person  to  suspect  contamina- 
tion where  none  is  present)  .  For  the  first  agent,  a  time  to 
both  decontaminate  the  body  area  concerned  is  determined 
based  on  the  N.SIDE  X  N. AGENT  X  7  X  3  array  DT.DECON.  The 
first  dimension  indicates  the  side  of  the  PERSON;  the 
second,  the  agent  concerned;  the  third  dimension  indexes  the 
area  of  the  body;  and  the  fourth,  the  distribution  type  and 
up  tc  two  parameters.  The  time  to  accomplish  the  decontami- 
nation of  that  body  area,  T.DECON.D,  is  added  to  T.CHEMCURR, 
the   current    simulation   time. 
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If  the  bcdy  area  is  less  than  5  and  we  are  in  the 
situation  where  the  PERSON  has  bean  crossing  a  contaminated 
area  (CHEMSIT  =  2)  en  foot  (  CF  =  5  )  is  not  contaminated 
(CONTAMINATED  ~  0)  ,  and  has  remained  up  until  decontamina- 
tion was  begun  (  DSFNUM  =  5  )  ,  then  no  dosage  is  assessed. 
Otherwise,  the  dosage  accumulated  during  the  decontamination 
of  that  tody  area  for  each  agent  is  computed  using  the 
methods  outlined  in  Appendix  A.  The  marginal  dose  for  the 
body  area  provided  as  an  argument  to  the  routine  for  each 
agent  is  stored  in  a  temporary  variable  DOSE2PASS,  which  is 
passed   between    the    routines    as   an   argument. 

If  decontamination  was  directed  (called  by  the 
routine  CECCN)  but  there  was  no  contamination  present  {FLAG 
=  0)  ,  decontamination  is  still  performed  and  T.CHEMCUHR  is 
updated  by  a  value  T.DECON-D  drawn  from  the  distribution 
ET. DECON. 

After  a  body  area  has  been  decontaminated  it  is 
covered  by  a  chemical  protective  garment  with  a  protection 
factor  value  equal  tc  PF.MAX  (in  other  words,  full  chemical 
protection  is  assumed).  To  simulate  this,  a  value  T.PF.D 
representing  the  time  it  takes  to  don  the  standard  item  of 
protective  gear  for  the  body  area  concerned  is  drawn  from 
the  distribution  DT.P?  (for  details  on  this  array,  see  the 
section  cr.  the  routine  MOPP  in  this  section)  .  This  value  is 
added  to  T.CHEHCURR  to  yield  the  time  that  the  protection 
was    denned,        T A.PF. CHEK (i)        (i    =      the    body    area)  and  then 

T.CHEMCUHE  is  updated  to  this  latest  time.  The  level  of 
protection  for  each  item  is  changed  to  the  level  of  full 
protection   PF. MAX,    as  each    item   is   donned. 

9.      The    Routine    CEPOSITION 


tasks : 


The     DEPOSITION   routine      accomplishes   the      following 
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Figure  3.24    Routine  DEPOSITIOB,  Continuation  A. 
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1.  It  computes  the  ground  and  air  dosage  at  the  given 
location  of  interest  at  any  intermediate  time  within 
CELT   using    a  linear   approximation. 

2.  It  adjusts  the  deposition  received  on  the  ground  at  the 
PERSCN's  location  to  the  dosage  received  en  the  cuter 
layer  cf  the  PERSON'S  clothing  or  skin  based  on  the 
collective  protection  category,  and  the  presence  of 
overhead  cover. 

The  DEPOSITION  routine  may  be  called  by  the  DOSE2 
routine  with  arguments  providing  the  start  time  T. START,  and 
the  ending  time,  T.END,  which  provide  the  interval  of  time 
over  which  the  deposition  must  be  computed.  The  first 
action  the  routine  dees  is  to  distinguish  between  the  cases 
so  it  can  come  up  with  an  approximate  ground  deposition  a* 
an  intermediate  time  between  TL  and  T.  CURRENT  if  necessary. 
The  previous  deposition  (time  TL)  at  the  PERSON'S  previous 
location,  calculated  the  last  time  CHEH. CHECK  was  called,  is 
stored  in  the  array  CEP. G. OLD  for  each  agent.  The  current 
deposition  at  the  PEBSON's  location  (at  time  T. CURRENT)  is 
stored  in  the  array  DEP. G. CURE.  A  simple  straight  line 
interpolation  is  used  to  estimate  the  deposition  at  an 
intermediate  value.  This  intermediate  value  is  an  approxima- 
tion ever  time  or  bcth  time  and  space  if  the  PERSON  moved 
during  DELI.  The  formulas  used  are  given  below  for  an  agent 
J: 

1.  Finding  the  starting  deposition  and  concentration 
when  the  starting  time  argument  (T. START)  is  not  the 
starting   time    of   the  iteration    (TL)  : 

DEP.CLD(1)     =       (DEP.G.CURR(J)     -    DEP.  G.  OLD  (J)  )       *     (     (T. START    - 
TL)     /    DELT    )    +     CEP.  G. OLD  (J)  (eqn    3.4) 

DE?.OLD(2)     =       (DEP.  A.CURR(J)     -    DEP.  A.  OLD  (J)  )        *     (     (T. START    - 
TL)     /    DELT    )     ♦    CEP.  A.OLD(J)  (eqn    3.5) 
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2.  Finding  the  final  deposition  and  concentration  when  the 
final  time  argument  (T.END)  is  not  the  ending  time  of 
the   iteration    (T. CURRENT) : 

DEP.CUR(1)       =    {     (DEP.G.CURR  (J)        -       DEP.OLD  (1)  )        *     (     (T.END    - 

1. START)    /     (T.  CURRENT    -    T. START)     }     +    DEP.OLD  (1) 

(eqn    3.6) 

DEP.CUR(2)       =     (     (DEP.  A.CURR  (J)        -      DEP.OLD  (2))        *     (     (T.END    - 
1. START)     /     (T. CURRENT    -    T. START)     }     +    DEP.OLD(2) 

(eqn    3.7) 

The  deposition  used  to  compute  the  dosage  is  simply 
the  average  d f  the  depositions  for  the  interval  called  in 
the  arguments  to  the  routine,  as  adjusted  by  the  collective 
protection    category     (C?)  . 

The  routine  next  checks  the  collective  protection 
category  of  the  person  by  checking  the  global  variable 
OLDCP.  If  the  C?  category  is  change!  at  any  time  during 
DELT,  the  old  CP  value  is  stored  in  this  variable.  The  depo- 
sition routine  will  be  called  twice  by  DOSE2,  since  there 
was  a  change  in  CP  category.  As  a  result,  during  the  first 
call  ty  DCSE2,  when  the  routine  is  calculating  the  dose  from 
the  last  update  tine  TL  to  the  time  the  C?  category  was 
changed,  it  will  use  the  original  CP  category  (OLDCP)  to 
determine  the  appropriate  deposition  adjustment  required.  It 
will  set  the  value  of  OLDCP  to  the  newer  CP  value  after 
doing  thisr  so  that  the  next  time  DEPOSITION  is  called  by 
D0SE2,  the  newer  CP  value  will  be  used.  If  the  CP  value  had 
not  changed  during  DELT,  the  UPDATE  routine,  called  before 
DEPOSITION,  will  have  set  the  value  of  OLDCP  to  the  current 
CP   value,    contained    in  the    PERSON'S   CP   attribute. 

If  the  OLDCP  value  is  one  or  two,  the  PERSON  is 
inside  a  vehicle.  The  adjustment  factors  for  vehicles  are 
contained   in  a    six-dimensional   array    SW. NBC. FILTER,    which   is 
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dimensioned  number  of  system  types  by  number  of  weapon  types 
by  2  categories  of  PEBSON  (crew  or  passenger)  by  3  catego- 
ries of  vehicles  (closed  with  overpressure,  closed  without 
overpressure,  and  open)  by  2  agent  states  (vapor/aeroscl  or 
liquid)  by  the  number  of  agents.  The  value  contained  in 
the  array  indicates  the  percentage  of  the  outside  dosage  of 
agent  that  will  penetrate  into  the  vehicle.  This  value  is 
multiplied  by  the  average  dosage  over  the  interval  of 
interest  to  yield  the  deposition  used  in  dosage 
calculations. 

If  the  OLDCP  is  three,  the  person  is  in  a  bunker. 
The  array  DEP.RSD  is  used  to  calculate  the  reduction  in 
deposition  afforded  by  the  bunker.  The  global  array  DEP.RSD 
is  dimensioned  H.  AGENT  X  3  X  2,  with  the  2i£ferent  ?.cer.J: 
types,  3  categories  cf  protection  (bunker,  CP  =  3;  foxhole 
CP  =  4,  with  no  overhead  cover;  and  in  the  open  CP  =  5,  with 
overhead  cover)  and  2  agent  states  (vapor/aercsoi  and 
liquid).  The  value  again  represents  the  percent  of  the  unad- 
justed ground  deposition  will  penetrate  into  the  collect iv? 
protection. 

If  the  OLDCP  is  four  (foxhole)  ,  a  check  is  made  to 
determine  if  the  foxhole  has  temporary  overhead  cover  (T.CHC 
not  equal  to  zero,  indicating  the  overhead  cover  has  teen 
assumed) .  If  it  has,  it  is  assumed  to  provide  the  same 
degree  of  chemical  protection  as  a  bunker,  and  +he  dose  is 
computed  accordingly.  If  not,  a  different  value  from  DEP.HED 
is  multiplied  by  the  average  ground  deposition  to  give  the 
deposition    en  the   PESSON. 

If  the  OLDCP  is  not  one,  two,  three,  or  four,  it 
must  be  five  (or  in  error)  ,  which  indicates  that  the  PERSON 
is  in  the  open.  A  check  is  made  to  see  if  temporary  overhead 
cover  has  been  assumed  (T.OHC  not  equal  to  zero).  If  it  has, 
the  third  index  in  the  second  dimension  of  DEP. RED  is  used 
to    find      the  amount    of  agent      that   has   penetrated      under   the 
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cover.  If  no  cover  has  been  assumed,  no  adjustment  is  mads 
to  the  deposition  -  the  deposition  on  the  ground  at  the 
PERSON'S  location  is  assumed  to  be  the  same  as  that  found  on 
the  PERSON,  and  the  average  of  the  old  and  current 
depositions   is    used    to   find   the   dosage   received. 

In  each  case,  the  OLDCP  value  is  assigned  the  new  CP 
value  after  the  deposition  has  been  calculated,  and  control 
returns    to   the    calling  routine. 


10. 


The  Routine    DOSS1 


The   routine    E0S21   accomplishes   the    following   tasks: 

1.  It  determines  if  there  is  any  chemical  agent  present  at 
the  PERSON'S  location,  either  on  the  ground  (and  thus, 
en  the  PERSON  if  exposed)  or  in  the  air.  If  not,  the 
routine  exits    to  the  calling   program. 

2.  The  routine  computes  the  dose  received  during  the 
previous  DELT  period  of  time,  if  not  already  computed. 
It  does  this  by  either  computing  the  dose  in  the 
routine,    or  by    calling    the   DCSE2    routine. 

The  initial  check  provides  a  means  of  bypassing  this 
routine  in  cases  where  the  individual  is  not  in  an  area  of 
chemical  hazard  or  contaminated  as  of  the  current  time, 
T. CURRENT.  If  he  is  facing  either  a  ground  or  airborne 
hazard,  the  routine  must  compute  the  dose  received  from  that 
hazard. 

The  routine  first  checks  to  see  if  decontamination 
was  being  performed  in  the  DELT  interval  of  interest,  and 
has  net  yet  been  completed.  If  it  was,  the  dose  for  the 
interval  has  been  computed  by  the  DECON  routine,  and  the 
dose  to  be  accumulated  during  DELT  is  stored  in  the  array 
AGA. EECCN.DCSE,  whose  pointer  is  stored  in  the  attribute 
AG. DECON. DOSE  (see  routine  DECON).  The  DOSE1  routine  will 
update      the     accumulated      dose      by        adding      the      amount      in 
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AGA.  EECCN.  ECSE  to  the  value  contained  in  the  array 
AGA.CUMDCSE  for  each  agent.  Control  is  then  returned  tc  the 
calling   program. 

If  decontamination  had  been  completed  during  the 
las-  CELT  seconds,  the  routine  will  compute  the  dose  since 
decontamination  was  completed,  by  setting  the  beginning  of 
the  interval  over  which  the  dose  is  to  be  computed,  T.OLD, 
to   the   tine    decontamination    was  completed,    T.DECON. 

The  program  next  checks  to  see  if  masking  or  denning 
of  any  individual  items  occurred  during  the  DELT  period  of 
interest.  If  masking  or  donning  an  item  had  been  completed 
during  the  CELT  period,  dosage  calculations  are  performed  at 
the  eld  level  of  protection  until  the  new  level  was 
completely  assumed,  then  at  the  new  level  of  protection.  For 
example,  if  the  mask  had  been  donned  curing  DELT  and  the 
attribute  T.MASK  was  five  seconds  after  the  start  of  the 
interval,  then  the  routine  would  compute  the  dosage  received 
without  a  mask  for  five  seconds,  and  with  a  mask  worn  for 
the    remaining       (DELT    -      5)       seconds.  If    there      had    been      a 

completion  during  that  time,  the  T.MASK  or  TA.PF.CHEM  (i) 
(i=1,...,7)  completion  value  would  be  assigned  to  the  tempo- 
rary variable  T.INT,  which  is  used  as  an  argument  for  the 
DOSE2  routine.  Checks  are  made  to  see  if  two  or  more  events 
occurred  during  DELT;  if  they  have,  the  dosage  is  computed 
over    each    interval    separately. 

The  routine  next  calls  the  D0SE2  routine,  which 
actually  computes  the  dosage  received  during  appropriate 
interval  and  assigns  the  cumulative  dose  to  the  array 
AGA.CUMDCSE  for  each  agent.  Beth  inhalation  and  percutaneous 
dosages  are  considered,  and  converted  to  an  equivalent 
intravencus    (IV)    dose. 
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1  1  •      Ills  Saudis. 3   r0SE2 

The  D0SS2  routine  accomplishes  the  following  task: 
It  computes  the  dose  received  daring  the  interval  passed  to 
it  from  the  routine  DOSE  1  under  each  of  the  following 
circumstances: 

1.  No  action  was  taken  during  the  given  interval  that 
would  have  affected  the  PERSON'S  chemical  protective 
status,   or 

2.  The  PERSON  changed  his  collective  protection  status 
during    DELT. 

The  routine  first  checks  to  see  if  the  collective 
protection  category  (CP)  changed  during  the  interval  passed 
to    it       (1. START    to         T.END)  from      the    routine       DOSE1.       The 

DEPOSITION  routine  is  called  for  the  interval  T,  START  to 
T.CP  (the  time  that  the  collective  protection  category  was 
changed),  then  the  dosage  is  computed,  the  DEPOSITION 
routine  is  called  again  and  the  remaining  dosage  computed. 
Changes  Ll  the  overhead  cover  category,  indicated  by  a  I.  CHC 
(the  time  overhead  ccver  was  assumed)  within  the  interval, 
are   handled   in    an   identical    manner. 

If  there  had  been  no  changes  in  protection  status 
during  the  interval,  the  DEPOSITION  routine  is  called  for 
the  entire  interval  T.  START  to  T.END  and  the'  dosage  is 
computed   at   one    time. 

The  DEPOSITION  routine  returns  the  effective  deposi- 
tion en  the  outer  layer  of  the  clothing  or  protection  (if 
any)  over  the  body.  The  amount  of  liquid  agent  reaching  the 
sKin  is  this  deposition  value  multiplied  by  the  protection 
factor  of  the  item  of  clothing,  etc.  between  the  skin  and 
that  layer  of  deposited  agent.  The  protection  factor  for 
bare  skin  is,  of  course,  1.0  (100%  of  the  agent  is 
transmitted   to    the    skin). 
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Figure  3.27    Routine  DOSE2, 
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A  pressurized  vehicle  (CP  =  1)  is  the  only  system 
that  will  reduce  the  amount  of  vapor/aerosol  that  reaches 
the  inimedia^.e  vicinity  of  the  PERSON,  so  no  adjustments  are 
made  to  the  airborne  concentration  of  agent  i,  found  in  the 
array  DEE . A. CURB (i)  .  The  percutaneous  hazard  associated  with 
airborne  aerosol  or  vapor  agents  is  assumed  negligible,  so 
the  only  hazard  posed  by  the  agent  is  the  inhalation 
hazard.  This  can  be  reduced  only  by  the  protective  mask,  so 
only  the  attributes  £ASK  (indicating  if  the  mask  is  en  or 
off)  and  MASKLEAK  (indicating  if  the  mask  leaks)  will  affect 
the    inhalation    dosage   received   by   the    individual. 

The  actual  calculation  of  the  dosage  received  during 
the    interval  is    explained  in   Appendix    A. 

12.       The   He u tine    CHZ^CiS  .  EFFECTS 

The  CHEHCAS. EFFECTS  routine  accomplishes  the 
following   tasks: 

1.  Simulates  the  injection  of  the  nerve  agent  antidote 
when  symptoms  of  possible  chemical  agent  poisoning 
appear,  when  presented  with  an  actual  nerve  agent 
hazard,  and  when  detection  of  any  chemical  agent  hazard 
occurs . 

2.  Determines  if  the  impairment  dose  threshold  of  the 
PERSCN  has  been  passed  for  each  of  the  chemical  agents, 
and  assigns  the  time  that  the  threshold  has  been 
reached  to  the  array  TA.AG.INCAP,  whose  pointer  is 
stored   in    the    attribute   T. AG. INCAP. 

3.  Calls  the  routine  SY MPTOM. DETECT  the  first  time  that 
an  impairment  dose  threshold  is  passed. 
4.  Determines  if  the  incapacitation  dose  threshold  of  the 
PERSCN  has  been  passed  for  each  of  the  chemical  agents, 
and  assigns  the  time  that  the  threshold  has  been 
reached  to    the    array   TA.AG.INCAP. 
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5.  Determines  if  the  lethal  dose  threshold  has  been  passed 
for  any  agent.  If  it  has,  assigns  a  tias  of  death 
through  the   attribute    T.LETH. 

The  CHE  MCA S. EFFECTS  routine  is  designed  to  translate 
the  accumulation  of  dosage  into  physical  effects,  that  is, 
reaching  a  level  of  impairment,  incapacitation  or  death.  It 
also  handles  the  simulation  of  the  possible  injection  of  a 
nerve  agent  antidote  by  the  soldier  by  calling  the  routine 
NAA. 

The  routine  begins  by  checking  to  see  if  the  iicair- 
ment  dose  threshold,  found  in  the  array  AGA.  IMPAIR  whose 
pointer  is  stored  in  the  attribute  AG. IMPAIR,  has  been 
reached  fcr  any  cheiical  agent.  When  an  impairment  dose 
threshold  is  reached,  a  time:  cf  impairment  is  assigned  to 
the  array  TA. IMPAIR,  whose  pointer  is  stored  in  the  attri- 
bute T. IMPAIR.  This  time  is  computed  by  a  simple  linear 
interpolation  shewn  in  equation  3.9.  The  dose  at  the  end  of 
the  last  iteration  is  contained  in  the  array  OLD.  DCS',  a 
global  variable  updated  in  the  routine  UPDATE  for  ~a.ch 
PERSON. 

T.IMPAIB(J)  =       [  (AGA.  IMPAIR  (J)  -       OLD. DOSE  (J))  / 

(AGA.CUMDOSE(J)     -    OLD.DOSE(J))      ]    +    TL  (eqn    3.9) 

If  it  has,  and  an  impairment  dose  had  not  been 
reached  earlier,  the  the  routine  SYMPTOM. DETECT  is  called  to 
determine  if  the  onset  of  impairment  (causing  the  appearance 
of  symptoms)  will  result  in  the  scheduling  of  a  detection 
(if  a  che&ical  hazard  has  not  already  been  detected)  .  If  two 
or  mere  agents  cause  impairment  during  the  same  DELT 
interval,  the  one  with  the  highest  number  is  arbitrarily 
used  to  call  SYMPTOM .DETECT .  The  temporary  variables  FLAG1 
and  FLAG2  are  used  to  keep  track  of  how  many  times  an 
impairment  dose  has  been  reached,  and  what  agent  caused  the 
imoairmsr.t. 
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If  the  agent  causing  the  incapacitation  is  a  nerve 
agent,  then  injection  of  an  antidote  will  be  performed.  This 
is  accomplished  DY  calling  the  routine  NAA.  Th<=>  possibility 
cf  wrongful  injection  is  again  considered.  If  the  nerve 
agent  antidote  has  net  previously  been  administered,  then, 
when  symptoms  of  a  chemical  agent  appear,  it  is  possible 
that  the  soldier,  as  a  result  of  poor  training  or  panic,  may 
inject  himself  with  the  nerve  agent  antidote.  This  prob- 
ability of  this  is  contained  in  the  global  variable  PC.NAA, 
which  is  dimensioned  as  a  vector  of  size  equal  to  the  number 
of  sides.  Users  who  wish  to  eliminate  this  option  may  simply 
set  this  variable  equal  to  zero.  If  injection  will  occur, 
based  on  the  comparison  of  a  uniform  (0,1)  random  number 
with    EC. NAA,   the  routine   NAA   will   be    called. 

The  routine  next  checks  to  see  if  the  dose  has 
reached  the  level  of  incapacitation  for  each  agent.  If  it 
has,  a  time  of  incapacitation  from  that  agent  is  assigned 
through  the  array  TA. AG  .INCAP  (i)  for  each  agent  i,  usinc 
equation  3.9  substituting  INCAP  for  IMPAIR,  Separate  array 
values  are  maintained  for  future  possible  discrimination 
between  different  agent  effects  in  multiple  agent  scenarios 
in  the  main  model,  instead  of  using  the  first  time  of 
incapacitation    as  a    single    attribute. 

If  the  incapacitation  dose  has  been  reached  for  one 
cr  more  agents,  the  routine  checks  to  see  if  the  lethal 
threshold  has  been  reached.  If  it  has,  a  time  of  death, 
T.LETH  is  assigned  as  an  attribute  of  the  PERSON  in  the  same 
manner  as  above.  Unlike  the  case  with  impairment  or  incapa- 
citation, the  PERSCN  can  ba  killed  only  once;  future 
iterations   of  CHEM. CHECK   should   not    include   lethalities. 

This  routine  dees  not  translate  the  event  of  impair- 
ment, incapacitation,  or  death  into  combat  effects;  this 
should  be  done  in  the  main  simulation  using  the  times 
attributed   to  each    PERSON.      The   ability   of    the   PERSON   should 
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be   degraded   appropriately  for   the   agent    and  level   of   affect, 

starting   at   the    time    a  level  cf   effect   is    reached.    Chapter  4 
discusses   this    matter  in   more    detail. 

13.       The   Routine    SYMPTOM. DETECT 

The        routine        SYMPTOM.  DETECT  accomplishes        the 

following   tasks: 

1.  If  the  PERSON  has  not  yet  detected  the  presence  cf  a 
chemical  hazard,  the  routine  schedules  a  detection  at 
the  impairment  time  of  the  first  agent  to  cause  impair- 
ment. The  onset  cf  impairment  is  assumed  to  be  the  t ime 
cf    the    first   appearance   of   noticeable    symptoms. 

2.  Regardless  of  when  detection  occurred,  the  routine  will 
call  the  routines  MASK,  OHC,  DECON,  and  MOP?  in  *he 
same  manner  as  ether  routines  call  this  sequence  at  the 
time   a    chemical    agent    hazard   is    detected. 

The  SYMPTOM. DETECT  routine  allows  the  appearance  of 
symptoms  to  initiate  the  realization  or  detection  of  the 
presence  cf  a  chemical  agent  hazard,  which  causes  the  PERSON 
to  react  accordingly.  The  routine  only  acts  if  the  PERSON 
has  net  already  reached  an  impairment  dose  for  any  partic- 
ular agent.  When  the  first  impairment  threshold  is  passed, 
marking  the  first  onset  cf  symptoms,  this  routine  will  be 
called  by  the  routine  CHEMC AS. EFFECTS .  It  will  not  be  called 
at  any  other  time.  If  the  person  has  previously  detected  the 
chemical  agent,  then  he  has  already  taken  (or  is  scheduled 
to  take)  most  protective  actions  that  it  is  possible  for  him 
to  take.  However,  he  may  have  elected  not  to  perform  certain 
things,  and  hay  may  wish  to  perform  delayed  decontamination. 
For  this  reason,  the  routine  is  called  even  if  the  PFRSON 
has  previously  detected  the  presence  of  a  chemical  agent 
hazard. 
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First,  the  PEBSOH  will  mask,  if  he  is  not  presently 
wearing  the  mask.  Note  that  this  will  occur  regardless  of 
the  CP  category,  unlike  before.  The  reason  for  this  is 
cbvicus  -  any  collective  protection  that  might  have 
prevented  a  person  ficm  masking  before  has  evidently  failed. 
If  masking  was  required,  the  detection  time  is  assigned  to 
the  time  that  the  mask  was  completely  donned  -  as  before, 
the  individual  will  not  have  detected  the  agent  from  the 
aspect  of  warning  otters  until  the  mask  has  been  put  en.  If 
he  was  already  masked,  then  detection  is  schedul =d  for  the 
moment  that  symptoms  occurred  (the  impairment  time  passed  by 
CHEMCAS. EfFECTS) . 

In  either  case,  the  individual  may  assume  overhead 
cover, if  necessary,  so  that  he  may  decontaminate  any  exposed 
areas   of   the  body.    This   is    done   by  calling    the  routine    OHC. 

Ihe  DECON  routine  will  be  called,  and  the  prob- 
ability of  delayed  decontamination,  contained  in  the  global 
variable  PC. DEL.  DECON,  will  be  used  (the  DSCON  routine  is 
found  in  this  section).  This  decontamination,  if  performed, 
will  be  ever  all  body  areas,  to  include  -chose  previously 
covered  by  protective  gear  (which  is  removed  and  replaced 
or  decontaminated).  If  decontamination  is  no*  accomplished 
(which  wculd  result  in  an  increase  in  individual  protection 
to  full  protection)  ,  the  MOPP  routine  will  be  called, 
causing  the  individual  to  don  all  items  of  chemical 
protective    gear    not    already    worn. 

After  the  MO£P  routine  is  called,  the  routine  will 
return    tc    CHEMCAS.  EFFECTS. 

14.      The  Routine    NAA 

The    NAA    routine   accomplishes    the    following    tasks: 
1.    Determines    the    time   of    the   injection   of   the   nerve    agent 
antidote,    and    assigns    that   time    to    the  attribute   T.NAA. 
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2.    Updates      the      array   A.  ANTIDOTE,         assigning 

contained      in    the      global      variable      NAA .FACTOR   to      the 
array    elements    corresponding   to   nerve   agents. 

The  NAA  routine  is  called  whenever  an  injection  cf  a 
nervs  agent  antidote  is  tc  be  performed.  The  term  nerve 
agent  antidote  used  here  is  a  generic  cne  referring  tc  the 
antidote  carried  by  the  soldier;  this  will  vary  according 
tc  his  nationality.  For  the  US,  the  current  antidote  is 
atropine.  The  time  it  takes  to  administer  the  nerve  agent 
antidote  is  drawn  using  the  array  DT.NAA,  which  is  dimen- 
sioned N.SIDE  (the  number  of  sides)  X  3  (the  distribution 
type      and   two      parameters).  The  result      is      added   to      the 

current  simulation  time  for  the  individual,  T.CHEMCURR.  This 
completion    time    is    also    assigned    tc    the    attribute      T.NAA. 

The  antidote  is  assumed  to  cause  a  reduction  in  the 
effective  dosage  received  by  the  PERSON,  which  can  be 
expressed  as  a  percentage  of  the  actual  dose  absorbed.  This 
percentage  is  contained  in  the  global  varia.ble  NAA.  FACTOR, 
which  is  dimensioned  as  a  vector  of  size  equal  to  the  number 
cf  sides  ci  forces  ircdeied.  Thus,  for  nerve  agents,  the 
actual  cumulative  dose  is  equal  tc  the  nominal  accumulated 
dose  times  the  appropriate  NAA. FACTOR.  Incorporation  cf  this 
change  in  the  dosage  calculations  is  accomplished  through 
the  array  A. ANTIDOTE,  whose  pointer  is  stored  in  the  attri- 
bute ANTIDOTE.  The  value  in  the  array  A. ANTIDOTE  is  changed 
from  its  initial  value  of  1  to  the  value  NAA. FACTOR  for 
every   agent    whose  type  is   nerve. 

15.      The  Routine    CROSSING 

The  CROSSING  routine  accomplishes  the  following 
tasks 

1.  Simulates  the  protective  measures  that  wculd  be  taken 
by  ground  troops  that  encounter  a  chemical  agent 
contamination    hazard  while   moving. 
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Figure   3.32        Routine   CROSSING. 
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Figure  3.33        Routine    CROSSING,    Continuation    A 
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2.  Computes  the  dosage  that  would  be  received  by  troops 
crossing  an  area   of   prior  deposition. 

3.  Handles  all  calculations  in  lieu  of  the  routine 
CHEH. CHECK,  once  CHSM. CHECK  has  updated  the  situation 
and  fcund  that  it  involves  crossing  a  previously 
contaminated  area  {any  area  with  ground  deposition  but 
no    agent   in   the    air    from    primary    deposition) . 

The  CROSSING  routine  handles  the  simulation  if  the 
chemical  situation,  CHEMSIT,  is  determined  to  be  a  case 
where  the  PERSON  is  moving  in  an  area  where  all  chemical 
agent  has  fallen  ontc  the  ground.  The  PERSON  may  be  entering 
an  area  of  chemical  agent  contamination  from  a  clean  area, 
cr  he  may  be  moving  about  in  an  area  of  deposition  suffi- 
ciently long  after  the  delivery  system  impacted  thai  all 
agent   has    fallen   to    the   ground. 

The  detection,  reactive  measures,  and  dosage  calcu- 
lations will  be  different  in  cases  involving  moving  ever 
contamination  as  opposed  to  being  attacked  by  an  agent  or 
encountering  a  chemical  agent  cloud.  The  first  check  the 
routine  does  is  to  see  if  CHEMDET  is  equal  to  1,  indicating 
that  the  PERSON  has  detected  the  presence  of  a  chemical 
agent  hazard.  If  he  has,  then  all  reactive  measures  will 
have  been  scheduled  through  attribute  assignments  and  the 
routine  can  call  the  dosage  computation  routine  directly. 
For  a  crossing  situation,  the  dosage  routine  is  D0SE3  (see 
this  section).  The  casualty  effect  sequence  CHEMCAS .EFFECTS 
is  called  next,  then  the  routine  returns  to  the  CHEM. CHECK 
routine. 

If  the  PERSON  has  not  previously  detected  the  pres- 
ence cf  a  chemical  agent  hazard,  then  the  routine  checks  to 
see  if  the  PERSON  was  in  contamination  previously  (DEP.G.CLD 
not  equal  tc  zerc  for  any  agent)  .  If  he  had  not  been,  then 
he   must    have      just    entered    an    area   of      contamination   and   the 
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beginning  pcint  for  any  chemical  effects  or  actions, 
T.CHEMCUBE,  must  be  set  at  the  time  at  which  he  first 
entered   the   contamination. 

It  is  assumed  that  the  deposition  at  his  previous 
area  was  zero  (it  really  could  have  been  just  under  the 
significant  level).  At  some  point  the  MIN.G.CHEM  threshold 
was  passed  en  route  tc  the  current  location.  For  simplifica- 
tion, it  is  assumed  that  the  deposition  increased  linearly. 
The  point  en  the  ground  at  which  the  MIN.G.CHEM  level  was 
reached    is    therefore: 

(MIN.G.CHEM    -   0    )       /     (DEP.G.CURR    -      0    )       *    the    distance    from 
(OLEX,OIDY)     to     (X. CURRENT,       Y. CURRENT)  (eqn     3.10) 

A  time  DZLZ  was  required  to  make  the  move.  For  simplifica- 
tion, it  is  assumed  that  the  mevs  started  at  the  beginning 
of  the  interval,  time  TL.  The  time  at  which  the  MIN.G.CHEM 
threshold   was   reached,   assuming    a   constant    speed,       is    there- 

(MIN.G.CHEM/DEP.  G.CUEB)     *    DELT         +    TL  (eqn     3.11) 

This  value  is  used-  tc  set  T.CHEMCURR  to  indicate  the  begin- 
ning   cf    tie   chemical   crossing    situation. 

After  the  beginning  of  the  chemical  encounter  has 
been  found  (it  is  TL,  the  last  update  time  if  contamination 
was  encountered  previously)  ,  the  routine  calls  the  DETECTION 
routine  in  the  same  manner  as  is  done  with  CHEM. CHECK;  the 
only  difference  is  that  if  detection  occurs  and  therefore 
the  DETECTION  routine  calls  the  DECON  routine,  the  prob- 
ability cf  decontamination  in  the  DECON  routine  is  set  at 
one;  when  crossing  contaminated  ground,  if  the  individual  is 
not  already  in  full  chemical  protection,  he  will 
decontaminate. 
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After  calling  the  DECCN  routine,  the  DOSE3  routine 
is  called  to  compute  the  dose.  The  sequence  continues  by 
calling  the  CH E MCA S. EFFECTS  routine  as  before  and  returning 
control  to  CHEM.  CHECK,  which  will  return  to  the  main  ccmba*- 
simulation  (this  is  the  end  of  the  iteration  for  *his 
FERSCN)  . 

16.       The   Routine    EOSE3 

The  DOSE3  routine  computes  the  accumulated  dose  for 
each  agent  in  situations  where  the  PERSON  is  crossing  an 
area    cf    previous   chemical   contamination. 

The  DOSE3  routine  is  called  only  by  the  CROSSING 
routine;  as  such,  it  only  computes  the  dose  in  cases  where 
the  FHRSCN  is  in  chemical  situation  two,  crossing  an  area  of 
previous  chemical  contamination  (see  the  CROSSING  routine  in 
this  section).  The  dosage  received  from  crossing  a  contami- 
nated area  will  be  different  from  that  received  when  in  an 
area  where  agent  is  still  failing  toward  the  ground,  as  the 
only  agent  that  can  affect  the  individual  is  agent  picked  up 
from  contact  with  the  ground.  The  amount  of  agent  picked  up 
from  tha  ground  will  depend  on  the  soldier's  collective 
protection,  his  mission,  and  the  pickup  rare  for  that  agent 
under   the   current   environmental   conditions. 

Certain  assumptions  have  been  made  about  the  pickup 
of   agent    while    moving.   They    are: 

1.  If  the  CP  =1  (inside  a  closed  vehicle  with  overpres- 
sure), there  will  be  no  effective  contamination,  and 
the  dose  will  be  that  computed  through  a  leakage  rate 
specified  in  the  array  SW. NBC.  BREATHING.  This  is  done 
in   the    DOSS2  routine. 

2.  If  the  CF  =  2  (vehicle  not  equipped  with  overpressure), 
there  will  again  be  no  direct  contamination  assumed  and 
the  dosage  received  will  depend  on  different  leakage 
rates    found   in    SW. NBC.  BREATHING ,    computed    in    DOSE2. 


128 


Rout to* 


DOSE  3 


LOOP 

>1,N. AGENT 


CALL  0OSE1 


RETURN 


NO 


NO 


I 


OEP.G.CURR(J)   • 

maxt 
(DEP.G.CURR(J) 
*   AG.PICKUP(J)) 
,    (QEP.G.OLD(J) 
»   AG.DECAY(J)    ] 


T.OECON       \  YES 
T. CURRENT 


NO 


CP  "   5 
OEFNUM   '    5 

I  rES 


rES    /CONTAMINATED 
-   1 


1 


LOOP 


AGA.CUMDOSEU) 

AGA.CUMOOSE(J) 
♦  AGA.OECCN. 


NO 


Figure  3.34    Routine  DOSE3, 
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Figure    3.35        Routine    DOSE3,    Continuation    A. 
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3.  If  the  CP  =  3  (bunker)  or  4  (foxhole)  ,  then  the  PERSON 
cannot  ba  moving  at  the  current  time.  If  he  had  been 
moving,  but.  had  stopped  and  gotten  in  the  bunker  or 
foxhole,  he  will  have  contaminated  himself  to  the  level 
found  en  the  ground,  adjusted  by  a  pickup  factor.  This 
situation  can  be  handled  through  the  normal  routine 
C0SE2. 

4.  If  the  CP  =  5  (in  the  open) ,  then  the  soldier  is  moving 
on  foot.  It  is  assumed  that  as  long  as  movement 
continues,  and  he  remains  standing,  the  only  contamina- 
tion that  will  occur  will  be  on  the  legs,  feet,  and 
hands.  Dosage  will  be  computed  accordingly  depending 
upen  the  protection  factor  of  these  body  areas.  If  the 
DEFNUM  attribute  is  equal  to  5,  he  is  standing.  Any 
ether  DEFNUM  value  indicates  that  he  is  nc  longer 
standing,     so   he    will   have   become    contaminated. 

5.  In  ail  cases,  the  amount  of  agent  contaminating  the 
exterior  of  the  collective  or  individual  protection  of 
the  PERSON  will  be  computed  as  the  pickup  factor  for 
agent  j,  AG. PICKUP (j ) ,  times  the  ground  deposition, 
DEP.G.CDRR  ( j)  .  It  is  assumed  that  the  pickup  rate  will 
he  a  constant  function  of  the  ground  deposition  and 
that  this  pickup  rate  can  be  expressed  in  a  single 
global  array  value  in  AG. PICKUP  for  each  agent  ever  the 
course  of  the  simulation  (or  until  changed  in  the  main 
simulation) . 

The  routine  begins  by  adjusting  the  exterior  deposi- 
tion CEP.G.CURR  by  the  AG. PICKUP  factor  for  all  agents.  The 
next  check  made  by  the  routine  sees  if  the  time  that  decon- 
tamination is  complete  is  greater  than  or  equal  to  the 
current  time.  If  is  is,  then  the  dosage  received  has  been 
computed  with  the  CECON  routine  and  so  the  DOSE3  calcula- 
tions are  not  needed.  The  routine  will  add  the  average 
dosage   accumulated   over    DELT   during    decontamination,      stored 
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in  the  array  AG A.DECCN.DOSE ,  to  the  accumulated  dosage  value 
in  array  AGA.  CtJMDOSE,  for  each  agent,  then  return  to 
CROSSING. 

The  next  check  that  is  made  is  to  see  if  the  dosage 
calculations  pertain  to  the  one  exceptional  situation  -  a  CP 
value  and  DEFNUM  value  of  5,  indicating  a  PERSON  crossing 
on  foot,  remaining  upright.  If  the  case  is  not  exceptional, 
the  normal  dosage  calculations  apply,  so  the  routine  DOSE1 
is  called.  Otherwise,  the  same  general  procedures  as  are 
used  in  DCSE1  are  applied,  only  dosage  is  only  accumulated 
ever  the  tody  areas  5,  6  and  7 .  The  =ctual  dosage 
calculations  are   contained    in    Appendix    A. 

If  T.DECCN  was  in  the  current  interval  DSLT,  the 
routine  sets  the  beginning  of  -he  interval,  7, OLD,  to  :he 
time  that  decontamination  was  completed,  I.DSCON.  If  T.DECON 
is      pricr   to      the   last      update      (or    equal      to   zero)  ,  then 

decontamination    is    complete     (or   has    not    been    scheduled)  . 

The  routine  next  checks  to  see  if  any  other  protec- 
tive actions  such  as  masking  (T.MASK),  changing  protection 
(TA.  FE.CEEM)  ,  etc.,  are  scheduled  during  DELT.  If  so,  a  local 
variable  I. INT  is  assigned  this  value,  and  will  be  passed 
as  an  argument  to  the  routine  DEPOSITION.  In  either  case, 
the  deposition  on  the  outside  of  the  PERSON  or  his 
collective  protection  has  been  adjusted  by  the  pickup 
factor. 

Dosage  calculations  are  performed  only  for  body 
areas  5,  6  and  7.  Details  are  found  in  Appendix  A.  After  ail 
dosage  calculations  have  been  performed,  control  is 
returned   Ao   CROSSING. 
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IV.     MODEL    ENHANCEMENTS    AND    EXTENSIONS 

A.       MCDEL    ENHANCEMENTS 

There  are  several  enhancements  to  the  basic  persistent 
chemical  agent  effects  model  presents!  in  this  thesis  that 
can  be  made  by  an  individual  interested  in  implementing  the 
model.  The  model  structure  has  many  hooks  designed  to  make 
some  cf  these  enhancements  easier  to  coordinate  with  the 
existing   framework. 

One  toajcr  enhancement  is  the  explicit  addition  cf  non- 
persistent  agents  to  the  model.  This  is  not  as  big  a  task  as 
it  may  at  first  seem,,  for  several  reasons.  You  may  recall 
from  the  introduction  the  fact  that  persistency  is  primarily 
a  matter  cf  environment  and  means  of  dissemination,  rather 
than    agent    type.  The   only   agent   class      normally    quoted   in 

threat  documents  that  is  truly  ncn-persistent  is  the  class 
of  blood  agents.  All  other  normally  expected  agents  may 
require  seme  degree  cf  skin  protection.  As  a  result,  many 
nations  dictate  in  their  doctrine  that  the  reaction  tc  any 
suspected  chemical  agent  attack  is  the  same  -  to  treat  it  as 
if  it  where  persistent,  and  so  don  full  chemical  protection. 
Only  later,  when  tests  with  detector  kits  or  ether  means 
have  verified  that  no  persistent  threat  is  present,  will 
protection  be  removed.  This  verification  process  may  be 
time-consuming  and  deferred  until  much  later  in  an  active 
combat  situation.  As  a  result,  the  persistent  agent  effects 
model  can  be  used  to  model  the  non-persistent  agents  as 
well,  with  no  changes  required  for  scenarios  of  relatively 
short   duration. 
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It  may  be  desireable,  however,  to  model  different 
doctrine,  situations,  or  scenarios  that  call  for  a  reduction 
in  chemical  protection.  As  a  result,  some  modifications  need 
to  be  made  in  the  model  to  accommodate  this.  The  attributes 
CONTAMINATED  and  T.CCNTAM  have  been  included  to  serve  as  a 
flag  for  contamination.  It  may  be  possible  tc  combine  these 
attributes  with  ethers  in  IF-type  statements  to  change  the 
logical  flow.  Alternatively,  CHEMDET  could  have  values  0, 
1,  2,  cr  3  (no  detection,  detection  of  one,  the  other,  or 
both)  . 

Several  points  in  logic  and  attribute  assignment  have 
been  kept  separate  tc  accommodate  non-persistent  agent 
modelling.  The  attribute  MASK  and  the  value  ?FA  .CHE  II  (2)  may 
seem  superfluous  at  first,  since  they  both  refer  to  the 
facial  area  and  most  likely  rsfer  to  the  same  piece  of 
protective  gear  (mask  with  heed)  .  However,  the  M^SK  att  ri- 
bute  refers  to  protection  against  inhalation  hazards  only, 
and  a  MASKLEAK  refers  only  to  leakage  of  vapor  or  aercscl. 
The  PFA.CFEM{2)  value  refers  to  protection  against  percuta- 
neous absorption.  Thus,  the  MASK  attribute  can  be  used 
separately  from  the  PFA.CBEM  array  in  non-persistent  situ- 
ations.        In  logic,        the      separate      parameters    PC.  MASK      and 


5C.M0rP      make 


it 


possible 


lif  f  erentiat  e      between      the 


assumption  of  a  non-persistent  chemical  attack  (PC. MASK)  and 
a  persistent  attack  (PC. MOPP).  Seme  changes  will  have  to  be 
made  to  the  DETECTION  and  SYMPTOM. DETECT  routines  to  avoid 
the  automatic  assumption  of  full  chemical  protection  and 
consideration  of  decontamination  after  detection.  The  dosage 
calculations  will  not  require  alteration;  with  a  nonpersis- 
tent  agent,  DEP.G.  CURE  (the  current  ground  deposition)  will 
always  equal  zero  so  only  an  inhalation  hazard  will  be 
calculated. 
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Implicit  in      the    Flay      cf   non-persistent      agents   is      the 
requirement    for      the   reduction   of   chemical      protection.      The 


very    nature    cf   a   ncn-per sisten' 


tgent    will   permit    reduction 


in  protection  within  the  time  frames  normally  associated 
with  high-resolution  simulations.  Decision  logic  needs  to  be 
added  to  the  main  combat  simulation  to  decide  when  tests  are 
to  be  made  to  verify  the  absence  of  a  chemical  hazard,  and 
removal  cf  protection  if  warranted.  This  is  normally  accom- 
plished en  a  unit,  rather  than  individual,  basis.  Once  the 
decision  has  been  made  to  remove  the  protection,  the  actual 
removal  car  be  ordered  through  changes  in  the  array 
CHANGE. CEDER  for   each      PERSON    in    the    unit.  Changes    in   the 

protection  factors  for  body  areas  1  through  7  can  be  acccm- 
piished      using  the     current      modal;         unmasking        car.      be 

accomplished  by      assigning    a   value      of    1       to   CHANGE. ORDER  (5) 
(body   area      2)  ,      and      separately   changing      the   value      of   the 
attribute   MASK    to   zerc. 

Any    MOPP     changes   upon    order    (increasing     or    decreasing) 
may      be    acccmplished      by      putting      ti 


2? k .  CHEH 


<?■ 


factor)  values  for  all  standard  MOPP  levels  in  an  array  and 
putting  all  PERSONS  into  sets  by  unit  (which  would  normally 
be  dene  anyway) .  Then  for  all  PERSONS  in  a  given  unit,  the 
values  of  CHANGS. ORDER  (4)  through  CHANGE. ORDER  (10)  cculd  be 
assigned  the  appropriate  vector  from  tne  MOP?  array.  The 
pointer  for  the  array  CHANGE. ORDER  is  stored  in  the 
attribute    CH EM.  CHANGE. 

Once  the  decisicn  logic  has  been  established  for 
changing  chemical  protection,  it  will  be  possible  to 
consider  modelling  the  degradation  resulting  from  a  given- 
level  of  protection.  In  Chapter  2  (Doctrine),  the  problems 
associated  with  wearing  chemical  protective  garments  were 
discussed.  This  degradation  may  be  the  primary  reason  for 
and  the  major  effect  of  the  employment  of  persistent  chem- 
ical     agents.         It      wculd      not   be      possible      to      model      this 
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degradation  without  a  basic  modal  framework  such  as  -hat 
provided  in  this  thesis.  Now  that  the  framework  has  beer. 
provided,  implem entations  should  include  some  type  of  degra- 
dation effects  model.  A  degradation  model  would  be  dependent 
upon  the  main  combat  model  employed  and  should  interact  with 
virtually   all  modules  of   the   model. 

The  CHC  (overhead  cover)  routine  can  be  enhanced  by 
explicitly  modeling  the  distance  of  the  PERSON  from  vehicles 
and  bunkers  that  he  light  use,  the  capacity  and  availability 
of  these  tc  the  PEBSON,  and  using  this  information  to 
provide  a  better  representation  of  the  actions  that  might  be 
taken   upon    receiving   a   persistent  agent    attack. 

First  aid  other  than  injection  of  a  nerve  agent  antidote 
may  be  added  to  ^he  CEEMCAS . EFFECTS  routine.  The  use  of  the 
array  A.  ANTIDOTE,  dimensioned  by  the  number  of  agents  to  be 
played,  allows  the  effects  of  the  first  aid  to  be  explicitly 
considered.  For    example,         a      reduction      factor    might      be 

applied  to  the  dosage  effects  of  a  blister  agent  after 
decontamination    was    performed. 

The  proximity  section  of  the  DETECTION  routine  allows 
for  seme  modelling  of  the  NBC  Warning  S  Reporting  System  by 
altering  the  CHHMDST  status  of  the  PERSON  receiving  the 
warning  ever  the  net.  However,  this  only  can  be  used  when 
the  warned  unit  is  immediately  threatened,  as  receipt  of 
the  warning  will  cause  the  adoption  of  full  protection  and 
causes  the  unit  to  assume  that  they  are  in  the  presence  of 
contamination.  Modelling  N3C  intelligence  will  require 
separate    logic    and   implementation. 

Partial  and  complete  decontamination  may  be  added  tc  the 
model,  with  the  attribute  CONTAMINATED  serving  as  a  flag. 
Decision  logic  incorporated  into  the  main  combat  simulation 
will  be  required,  as  partial  and  complete  decontamination 
are  normally  unit  functions  performed  on  order  rather  than 
individual   actions    based  on   the      situation   and   doctrine.      If 
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is      recommended    that      separate      routines      be    established      to 
model   this,    possibly   en   a   unit   rather    than    individual    level. 


B.       B2CCHMENDATI0KS    5CR    FUTURE    EFFORTS 

The  model  presented  in  this  thesis  depends  extensively 
upon  the  use  of  probabilities  at  decision  points  and  prob- 
ability distributions  to  model  the  time  it  takes  to  perform 
actions  and  the  effectiveness  of  such  actions.  The  validity 
cf  such  a  model  depends  heavily  upon  the  assumptions  made  in 
deriving  these    distributions. 

This  problem  is  endemic  throughout  most  stochastic  chem- 
ical modelling  effort,  as  data  that  provides  a  reasonable 
fit  to  the  situation  being  modelled  is  often  difficult,  if 
net  impossible,  to  obtain.  Many  models  make  iraolici"1-  distri- 
butional (or  binary  yes/no)  assumptions  within  the  logic  and 
thus  seemingly  avoid  these  difficulties;  however,  it  becomes 
difficult  to  change  or  improve  upon  these  assumptions  as 
data  becomes  available.  It  is  recommended  that  the  user 
ex  ere  is =  the  utmost  oare  in  deriving  the  par amet ~rs  used  in 
this  model  (almost  all  of  which  must  be  explicitly  set  by 
the  user),  document  the  justification  of  the  figures  used, 
and  conduct  a  sensitivity  analysis  to  see  which  parameters 
significantly  affect   the    main    combat    model. 

The  detection  routine  may  be  be  represented  as  a  dynamic 
function  of  the  situation  and  time  rather  than  a  repeated 
comparison  against  a  probability  distribution.  Has  author  is 
unaware  of  any  models  presently  written  that  could  usefully 
be  inccrpcrated  in  the  present  high-resolution  persistent 
chemical  agent  effects  model;  this  issue  merits  further 
research. 

Nc  synergism  has  been  assumed  between  chemical  agents 
simultaneously  present  on  the  battlefield.  Interactions, 
both  physical  and  physiological,  should  be  examined  for 
possible    significance. 
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Pickup  of  chemical  agents  from  a  contaminated  araa  has 
been  treated  as  a  simple  percentage  of  the  agent  present, 
and  transfer  of  such  agents  tc  un contaminated  areas  have 
teen  ignored.  Soma  engineering  and  test  data  are  available 
on  the  issue;  methods  of  practicably  modelling  the  matter 
should    be   explored. 

Interactions        between  conventional        and  chemical 

casualty-producing  effects  have  no1:  been  considered.  For 
example,  the  fragmentation  effect  of  a  chemical  round  has 
not  been  modelled;  the  effects  of  fragmentation  on  chemical 
protec-ive  garments  has  only  implicitly  been  considered 
through  a  leakage  factor.  Studies  tend  to  consider  the  ques- 
tions separately;  however,  the  issue  of  contamination  of 
parsonnel  bearing  conventional  wounds,  and  the  decontamina- 
tion and  treatment  thereof,.  aay  ?rov  =  very  important  in  a 
battle  where  parsistent  chemical  agents  are  used.  The 
related  issue  of  evacuation  and  decontamination  of  chemical 
casualties    is  also    worthy   of   future    modelling   effort. 
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APPENDIX    A 
CCSAGE    CALCULATIONS 

A.       DCSAGE    RECEIVED    iHILE    DECONTAMINATING 
1 •      Assumptions 

a.  There   exists   A3S  (j)    =   rats    at    which   j    is   absorbed 
int      the    fccdy  such    that 

Absorbed   dose       j   =   ABS  (j)         *   contaminated    skin      area   * 
time  (eqn   A.1) 

where  AES(j)     =    nq    /   sq    cm    -    sec 

ski£    ar  ea    —   sq   cm 
time    =    sec 

Mot  e  that  this  assumes  a  constant  absorption  rate  over  rime 
regardless  of  the  aircurt  of  agent  deposition  or  previous 
dose    absorbed. 

b.  There   exists    OCR  (i)    =    rats    at    which   a    soidisr    can 
decontaminate  skin    contaminated   with    agent    j    such    that 

Skin    area    contaminated  =    DCR(j)     *   initial    deposition   on   skin 
*   initial    skin    area    contaminated    *    time  (eqn    A.  2) 

where  DCR  (i)     =    sq   cm    /   mg   -    sec 

deposition   =    mg    /    sq   cm 
area   =    sq    cm 
time    =    sec 

Since  we  assume  uniform  deposition  on  the  soldier,  the 
concentration  will  be  the  same  over  the  entire  contaminated 
skin    area   at  any   given  time. 
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c.  Decontaminated  skin  is  immediately  covered,  sc  no 
recor.taminaticn    occurs. 

d.  Decontamination  will  nor  occur  whil^  there  is 
significant  liquid  depositing  itself  on  the  body  -  the 
soldier  will  seek  or  improvise  overhead  cover.  As  a  result, 
there  is  no  increase  in  the  skin  concentration  after  decon- 
tamination has  commenced.  Condensation  of  vapor  and 
settling  of  aerosols  ont  exposed  sicin  during  the  time  of 
emergency    skin    decontamination   is   negligable. 

e.  A3S  (j)  and  DCH(j)  may  vary  among  soldiers  and 
among  agents,  but  they  are  constant  for  a  given  soldier  - 
agent   combination. 

2 .      Eerivaticn 

At  time  %  ,  when  decontamination  commences,  the 
soldier  has  a  given  concentration  (deposition)  on  a  giver- 
amount   of   exposed  skin. 

Let   C      =  Concentration    on   stein   in   mg 

o  J 

Let    S      =   excosed   skin    surface   in    cm 

Eefcre  decontamination,  the  concentration  on  the 
skin    was 

C   =   deposition    rate      *    skin   area      *   time      -         ABS(j)       * 
skin    area    *  time  (eqn   A. 31 

or 

C   =    (deposition   rats  -    absorption   rate)         *    skin   area   * 
time  (eqn   A. 4) 

At  t  ,  the  deposition  rate  is  negligable  (by  assump- 
tion) .  After  decontamination  commences,  the  skin 
concentration   is   no    longer    uniform. 

The   dose  absorbed  over    any   small   interval  t'    is 

S(t)     *    ABS(j)     *    t»  if    C(t)     >    ABS(j)     *       t'  (eqn    A  .5) 
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or 


lu 


"  S  (t)     *    ABS(j)     dt  if    C(to)     >    ABS(j)     *     (t-to) 

(eqn    A. 6) 

Th€    dose   D    absorbed    between   to    and   some    later   time   t 


is: 


D    =    ABS(j)     *  ^(So-    CCR(j)     *'C0    *    t) 
(DCR(j)    *Vo    *    t  /2)}     fndpoint 

t  o 


dt    =    ABS  (j)     *     {(S0*    t    - 
(eqn    A. 7) 


The  endpoint  is  t  if  t  <=  s0/DCR(j)  *  C0  since  at 
the  end  of  t  =So/DCR(j)  *  Coail  skin  is  decontaminated;  the 
endpcint  is  So/DCR(j)  *  Co  if  t  >  So/DCR(j)  *  C0 .  The  dose 
absorbed  is  then  than  the  minimum  of  D  as  evaluated,  or  the 
maximum      amount     that    was   present   to    oe    absorbed.         Let   t"    - 

(t      -       to)    . 

If    tf    is   less   than    or   equal    to   So    /    DCR(j)     *    Co  : 

D  =    AES(j)     *  t«    *  [     So-    (DCR(j)     *  Co    *    (t * /2)  )     ]         (eqn   A. 8) 

If  t'    is    greater  thar   So    /    DCR(j)    *   Co  : 

D   =    AES(j)     *   [     So2    /     (DCR(j)     *    Co*    2)      ]  (eqn    A. 9) 

If   C   o  is   less  than    or   equal    to   A3S(j)     *    (t   -t0)  : 


D   *    C, 


(eqn    A.  10) 


Therefore,    the    dose    is: 


D  =    min   [    result   from  integration,    C0     ] 


(eqn    A.  11) 
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B.       DOSAGE    COMPUTATION   UNDER    NORMAL    CIRCUMSTANCES 

1  •      Inhalation    Dose 

The  inhalation  dose  is  that  dose  received  from  chem- 
ical agent  aerosols,  vapors,  and  suspended  droplets  in  the 
air  that  are  absorbed  into  the  bloodstream  via  the 
respiratory     tract.  There      are      two        ways      in      which     an 

inhalation    dose    may    re  received: 

a.      Dosage    Received      Prior  to      Donning   a      Protective 
Mask 

Let      AGA  .INHAL. FACTOR      be      a      conversion      factor 
representing     th=      milligrams      of     agent      inhaled      into      the 
respiratory   tract   that   are    absorbed    into   the    bloodstream. 
Units:    mg   into    bloodstream    /   nig    iahaled    (dimensionless) 

Let    SW.  BREATHING      be    the      breathing   rate      of    the 
individual,        as  a      function   of      the    mission      and    work      rate 
(expressed      in    terms      of      VEH. SYS. TYPE,       VEH. WPN. TYPE,         and 
DEFNUM)  . 
Units:    cubic  meters    /  sec 

Let      DEP  (2)         be      the      average    concentration     of 
agent    in    the  air  during    the    time    interval    of   interest. 
Units:    mg   /    cubic   meter 

Let    I.  START    be    the    beginning    of   the    interval    and 
T.END    be   the  end  of    the    interval. 

Then   the    total    inhalation    doee     (INHALE.  DOSE)    is: 

INHALE.  DCSE      =    AG.  IN  HAL.  FACTOR       *    DEP  (2)  *    SW. BREATHING       * 

<T.END    -    T.  START)  (eqn    A.  12) 
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fc.      Dosage    Received    Through   a   Leak    in   the    Protective 
"a  s  k . 


If    the    HASKLEAK    is    the   percentage   of    the    outside 

concentration   entering      the    mask      iue    to      a   leak,         then   the 
total    inhalation   dosage   INHALE. DOSS   received    will    be: 


INHALE. DCSE      =        MASKLEAK       *  AG. IMHAL. FACTOR       *       DSP  (2)  * 

SW.EEEATHING    *     (LEND    -    T. START)  (eqn    A.  13) 

2 •      Percutaneous   Cos  e 

The  percutaneous  dose  is  that  lose  received  from 
liquid  chemical  agents  that  con-act  the  skin  and  are 
absorbed    intc    -he   blccdstream. 

a.      Percutaneous    Dose    Received 

Let    PPA.CHEM(i)       be   the   protection   factor    of   any 
clothing     or      gear      covering      the        skin      of      body      area      i. 
PFA.CHE3(i)     =    1     if    the   skin    of    body    araa   i    is    expcs-d. 
Onits:      mg      contacting  the      skin   /      mg    contacting      the    cuter 
layer   of    protection     (dimens ionless) 

Let    ABS(j)    be  the   rate  of    absorbtion    of    chemical 
agent    (j)    through  the   skin. 
Units:    mg  /    (sq    cm    skin    sur  face)  *  (second) 

Let    DEP(1)    be   the    average    deposition    of    chemical 
agent      on   the      protective   clothing      (or      skin,      if      expcsed) 
during   the    interval    cf  interest. 
Units:    mg   /   sq    cm 

Let    SKIN(i)       be   the   surface      area   of   the    skin   of 
body    area    i. 
Units:    sq   cm 

Let    T.  START   be    the   beginning  of  the   interval   and 
T.END    be   the   end  of    the    interval. 
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Then   the    total    percutaneous    dose    (SKIN.  DOSE)     is: 

SKIN. COSE       =      PFA.CHEM(i)        *       ABS(j)        *       DEP(1)  *       SKIN(i) 

*     (T.END   -    T.START)  (egn    A.  14) 

C.       COMPUTER   ROUTINES    OSED    TO    COMPOTE    DOSAGE 

1-  lie    Routine    COSE. COMPUTE 

This  routine  was  used  to  contain  the  dosage  formulas 
stated  in  Appendix  A.  It  can  be  called  from  the  routine 
DOSE1  . 

2-  The    Routine    DCSE 3. COMPOTE 

This  routine  is  identical  to  DOSE. COMPUTE  (above)  , 
except  that  it  only  assesses  the  percutaneous  dose  ovsr  body 
areas   5,    6,    and    7.       It  is  cailsd    by    the    routine    DOSE3. 

3-  Ihe    Hou.tine    CECON.DCSE 

This  routine  contains  the  formulas  for  computing  the 
dosage      received     while   decontaminating,        as      discussed     in 

Appendix    A. 


CODE 

1  ROUTINE    CECON.DCSE    GIVEN    ARE  i,  AGENT  ,  T.  DECON.  D  ,     AND    DEP    YIELDING    DCSE 

2  PRINT       1     LINE    THOS 
•  ROUTINE    DECCNT.DCSE    CALLED 

3  DEFINE    AREA    AND    AGENT    AS    C-DIME  NSI  ON  AL,     INTEGER    VARIABLES 

I*  DEFINE    T.EECCN.E-    ENCPT     AND    CO     AS    0-  DIMEN  SIONA  L,     REAL    VARIABLES 

5  DEFIliE    DEF    AS    A    1-DIMEHS ICNAL,     REAL    ARRAY 

6  DEFINE    DCSE    AS    A    2  -  DIM  EN SION AL,     SEAL    ARRAY 

7  RESERVE    DEPf*)     AS    N. AGENT 

3  RESERVE    CCSE(*,*}     AS    7     BY    K.  AGENT 

9  LET    CO    =    DEP  (AGENT)     *    S  KIN  (SIDE  ,  AREA) 

10  LET    EN  DPT    =    SKIN  (SID  E,  ARE  A)     /    (     DCR  ( AGENT) *CO    ) 

11  IF    T.DECCN.L    IS    LE     SNDPT 

12  LET    DOSE(AREA, AGENT)     =    ABS(AGENT)     *   T. DECON. D    * 

13  (    3KINjSIDE,AREA)     -     (DCR  (A  GENTi*SKIN  (SIDE  ,  AR  EA)  *T.  DICO  N.  D*0  .  5)     ) 

14  ELSE    LET    DOSE  (AREA  ,  AGE  NT)  =    ABS ( AGENT)     *    SNDPT    *    SKIN  (SIDE,  AREA)     *    3.5 

15  REGARDLESS 

16  LET    DOSE  (AREA, AGENT)     =    MIN.F(    CO,     DOSEf  AREA .  AGENT)     ) 

17  LET    DOSE  (AREA, AGENT)     =    A  .  ANTIDOTE ( AGENT)     *    DOS E (AREA, AGENT) 

18  RETURN 

19  END  •  K)F    ROUTINE    DECON. DOSE 
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CODE 


1  ROUTINE  COSE. COMPUTE  SIVEH  T. START,  T. END,  AGENT  AND  DEP 

2  DEFINE  T. START.  LEND,  INHALE. DOSE  AND  SKIN. DOSE  AS  0-  DIMENSION  AL , 
i  ^E^L  VAFTAELEC 

4  DEFINE  AGENT  "as"~A  0 -DIMENSIO NAL ,  INTEGER  VARIABLE 

5  DEFINE  DEF  AS  A  1- D  I  ME  NSICNA  L,  REAL  VARIABLE 

6  RESERVE  CEP  (*)  AS  2 

7  PRINT   1  LINE  THUS 
ROUTINE  DOSE. COM!  CALLED 

8  • ' INHALATION  DOSE 

9  LIST  AG  .  INH  A  L  .  F  ACTC  H  fA  G  ENT)    DEP(2) 

10  SW.  BREATHING  ( VEH.  SYS  .1  Y  PE  (  SO  LDIER)  , VEH . WPN. TYPE  (SOLDIER)  ,DEFNUM  (SOLDIER)  )  , 

11  T.END,     I.  ST A  EI 

12  IF     (T.MASK  (SCLOTER)      IS    GE    T.END) 

13  OR     (T.MASK  (SOLDIER)     ■    0)  "PRIOR    TO    MASKING 

14  LET    INHALE. CCSE     =    AG.  INHAL.  FACTOR  (  AGENT)     *    DEP  (2)     * 

15  SW.  BREATHING  (VEH  .SYS  .TYPE  (SOLDI  ER)  ,  VEH.  H  PN.  TYPE  (SOLDIER)  ,DEFNUM  (SOLDIER)) 

16  *     (T.  END-T. START) 

17  ELSE    IF     MASKLEAK  (SOLDIER)    IS    NOT    EQUAL    TO    0  "MASK    ON    BUT    LEAKS 

18  LET    INHALE. DOSE    -    AG.  INHAL.  F  ACTOR  (AGENT)     *    DEP  (2)      * 

19  SW.  BREATHING  (VEH. 5  YS.TYPE  (SOLDIER)  ,  VEH.  WPN.  TYPE  (SOLDIER)  ,DEFNUM  (SOLDIER)  ) 

20  *     (T.EKD-T. START)     *     MASKLEAK (SOLDIER) 

21  ALWAYS    REGARDLESS 

22  '  '  PERCUTANEOUS    COSE 

23  LET    SKIN. COSE    =    0 

24  FOR    I    =     1    TO    7.     DO 

25  LET    SKIN. DOSE    =     SKIN. DOSE    ♦     FFA.CHEM(I)     *    SKIN  (S  IDE,  I)     * 

26  MIN.F(     S£S  (AGENT)  *  (T.END-T. START)      ,     DE?(1)     ) 

27  LOOP 

28  •  'CUMULATIVE    IV    DOSE 

29  LET    INHALE.  DOSE    =    INHALE. COSE    *     A. ANTIDOT E ( AGENT)  "FIRST    AID 

30  LET    SKIN. COSE    =    SKIN. DOSE    *    A.  A  NTID0T2  (AG  EST)  "FIRST    AID 

31  LET    AGA.CUMDOSE  lAGE-NT)     =    INHALE. DOSE    *■    SKIN. DOSE    +    AG  A  .  CUMDOSE  (AG  SNT) 

32  LIST    INHALE, DOSE,    SKIN. DOSE,     AGA. CU MDOSE (AGENT) 

33  RETURN 

34  END  "OF    ROUTINE    DOSE. COMPUTE 


;ode 


1  ROUTINE    DOSE3. COMPUTE    GIVEN     1. START,    T.END,     AGENT     AND    DE? 

2  DEFINE    T. START,     LEND,     INHALE. DOSE    AND    SKIN. DOSE    AS    O-DIMENSICN A L , 

3  REAL  VARIAELES 

4  DEFINE  AGENT  AS  A  0 -DIMENSIONAL .  INTEGER  VARIABLE 

5  DEFINE  DEP  AS  A  1- D IME  NSICNA  L,  REAL  VARIABLE 

6  RESERVE     CE?(*)     AS    2 

7  PRINT    2    LINES    WITH     T. START,    T.END,     AGENT,     DEPH)      AND    DEP  (2)     THUS 
ROUTINE    DOSE3.CCMF    CALLED    GIVEN    T. START    =    ***.*,     T.END    =    ***.*, 

AGENT    =    **.     DEP(1)     =    ****.**     JND    DEP(2)     =    ****.** 

8  ' ■ INHALATION    DOSE 

9  IF     (T.  MASK  (SCLDIER)      IS     EQUAL    TO     0)     OR     (T . MASK  (SOLDIER)     IS    GE    T.END) 

10  LET    INHALE. DOSE     =    AG . INHAL. F ACTOR ( AG ENT)      *    DEP  (2)     * 

11  SW.  EREATHING  (VEH. SYS. TYPE  (SOLDIER)  ,  VEH.  WPN  .  TYPE  (SOLDIER)  ,DEFNUM  (SOLDI  ER)  ) 

12  *     (T. END-I.  START) 

13  ELSE    IF     MASKLEAK  (SOLDIER)     IS    NOT    EQUAL   TO    0 

14  LET    INHALE. CCSE    =    AG.  INHAL.  FACTOR  ( AGENT)     *    DEP(2)     * 

15  SW.  BREATHING  (VSH.S  YS. TYPE  (SOLDIER)  ,  VEH.  WPN.  TYPE  (SOLDI  ER)  ,DEFNUM  (SOLDIER)  ) 

16  *     (T.  END-T. START)     *     M  ASKLEAK  (SOLDIER) 

17  ALWAYS     REGARDLESS 

18  »  'PERCUTANECCS    DOSE 

19  LET    SKIN. COSE    =    0 

20  FOR    I    =    5    TO    7,    DO 

21  LET    SKIN. CCSE   =    SKIN.  CCSE    +     PFA.CHEM(I)     *    SKIN  (SIDE, I)     * 

22  MIN.F(    ABS  (AGENT)  *  (1.  END-T.  START)      ,     DE?(1)     ) 

23  LOOP 

24  •  'CUMULATIVE    IV    DOSE 

25  LET    AGA.  CUMDOSE  (AGENT5     =    INHALE. DOSE    +    SKIN. DOSE    ♦    AGA.  CUMDCSE  (AGENT) 

26  LIST     INHALE.  DOSE,    SKIN.  DOSE,     AGA.  CU  MDOSE  (AGENT) 

27  RETURN 

28  END  "OF    ROUTINE    DOSE3.  COMPUTE 
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APPENDIX    B 
GLOSSARY 

A.       CONVENTIONS     OSED    IN    NAMING    VARIABLES 

Several  conventions  were  followed  in  deriving  variable 
names  used  in  this  model.  An  understanding  of  these  conven- 
tions will  assist  in  the  understanding  of  the  routines  found 
in   this   thesis.    They    are: 

1.  A  used  as  a  prefix  (e .g.  , A. BOUND)  ,  or  found  at  the  end 
of  a  prefix  (e.g. ,  T  A.  PF.  CHEM)  indicates  an  array. 
Normally    this    array   will    have   an   attribute    pointer. 

2.  AG  used  as  a  prefix  refers  to  :c?  agents.  If  the  array 
is  singly-  dimensioned,  the  dimension  will  be  N. AGENT. 
If  it  has  two  dimensions,  the  last  dimension  will  be 
N. AGENT. 

3.  AL  as  a  prefix  refers  to  attributes  or  characteristics 
of    alarm    systems. 

4.  D  as  a  prefix  refers  to  an  array  that  holds  a  prob- 
ability distribution,  or  in  the  case  of  D. IMPAIR  and 
D.INCAP  only,  are  used  to  generate  numbers  from  a 
probability  distribution.  Other  than  the  two  excep- 
tions mentioned  above,  the  last  dimension  of  the  array 
is  three;  the  first  value  in  that  dimension  is  the 
distribution  type;  the  ether  two  are  the  parameters  of 
the   distribution. 

5.  DEE  as  a  prefix  refers  to  the  deposition  or  air 
concentration  of  the  agents.  The  attributes  DHF. AIR 
and   DEP.  GND  point   to    these   N.  AGENT   dimensioned   arrays. 

6.  DT  as  a  prefix  indicates  arrays  that  hold  probability 
distributions  for  times  taken  to  perform  actions.  The 
last  dimension  is  of  size  three,  with  the  same  values 
as   are  given    fcr  the    "D"    prefix   above. 
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7. 


8. 


9. 


N  as  a  prefix  indicates  glooal  variables  us  =  3  to 
indicate  the  number  of  entities  cr  critical  parameters 
tc  be  modellad.  These  values  are  used  in  DEFINE 
statements  and    CO   LCOPs. 

OLC  as  a  prefix  indicates  a  value  tha-1-  has  been 
retained    from    the   previous   iteration. 

PC  as  a  prefix  stands  for  Probability  (Chemical) .  It 
was  used  in  lieu  of  a  simpler  "P"  prefix  tc  avcid 
problems  with  SIMSCEIPT  generated  arrays.  These  vari- 
ables   hold   probabilities;      they    are    used  to    dirac"1"-   the 


actions   that    will 


V*.         *  -, 


ken    by    ail   PERSONS   modelled. 


10.  PF  as  a  prefix  stands  for  Protection  Factor.  The 
arrays  indicate  values  relating  to  the  protection 
factor  afforded  aach  of  seven  body  areas,  and  -heir 
last    dimension    is   of    size   seven. 

11.  T  as  a  prefix  is  used  for  times.  When  used  as  tempo- 
rary attributes,  they  indicate  either  the  time  that  a 
(dimensionless)  event  occurrid,  such  as  detection,  or 
the   time    that    an  action    was   completed. 

12.  TA  as  a  prefix  rafers  to  the  arrays  that  held  time 
values. 

13.  VSH  as  a  prefix  refars  to  attributes  or 
characteristics  cf   vehicles. 

14.  The  "D"  suffix  is  used  to  refar  to  the  time  that  it 
actually      took      to      perform      an      action      (e.g. , T. NAA.D 


refers  to    the    time    it    takes   to    injec 


antidote) .  It 


originally  stood  for  "don",  the  time  required  tc  don 
the  mask  or  protective  gear,  but  for  conformity  it  has 
been  used  with  all  performance  times. 


147 


B.       VARIAELB.   DEFINITIONS 

A. ANTIDOTE  GLOBAL    VARIABLE        (1-D)  REAL 

This  variable  is  used  to  reduce  the  dosaae  for 
each   agent      by   multiplying    the      accumulated   dosage 

by  the  appropriate  array  element.  It  is  initial- 
ized at  1  in  the  main  (driver)  proaram  when  the 
array  is  created.  The  pointer  to  the  array  is 
stored  in  the  attribute  ANTIDOTE.  Currently,  only 
the  array  elements  corresponding  to  the  nerv= 
aqents  are  modified  -  they  are  se:  ecrual  to  the 
value    found   in    N A  A. FACTOR    by    the    routine    NAA 

Dimensions:    N.  AGENT 

Value:      NAA. FACTOR      for   nerve   aqents;         a    suitable 
reduction   ractor   for   other   agents. 

A.RCUND  GLOBAL    VARIABLE     (2-D)  REAL 


This  array  forms  a  queue  in  which  are  stored  the 
time  and  chemical/ncnchemical  nature  of  each  round 
landing  sufficiently  near  to  the  PERSON  during 
DZLT  to  cause  the  PERSON  to  react  (he  was  in  the 
effects  ellipse  of  the  round)  .  The  pointer  to  the 
array  is  stored  in  the  attribute  ROUND.  Each  time 
a  round  impacts  and  the  P3RSON  is  placed  in  the 
set  corresponding  to  all  personnel  affected,  the 
round  time  and  nature  should  be  added  to  the 
queue.  The  queue  length  at  any  time  is  stored  in 
the  attribute    RDPTR. 

Dimensions :  (A  number  larae  enough  oo  accomodate 
ail  rounds  landing  close  enough  to  affect  the 
PERSON)    by    2 

Value: 

1st   dimension:  The    rime    that    the    round    impacted. 
2nd   dimension: 

0  -    if   the   round   is  not    chemical 

1  -    if   the   round    is   chemical 

ABS  GLOBAL     VARIABLE     (1-D)  REAL 

This      array  stores      the      absorption      rate    of      each 
aqent    through   exposed   skin.       It   is    used    to    oonvert 
the   deoosticn      oh    the      skin    in      mg/sq.cm.      to      the 
intravenous   dose    in   mg. 
Units     :    mg/sq.cm    -   sec 

Dimension:    N.  AGENT 

Value:    As    given   above. 

AG.  AL.  THRESH         GLOBAL    VARIABLE     (2-D)  REAL 

This  variable  provides  the  concentration  of  each 
agent  in  mg/m  that  will  cause  a  chemical  agent 
alarm    to    sound   a    warning. 
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Dimensions:    N.SIDE   by   N. AGENT 

Value:    As    given  a  rove,    for    each   side. 

AG.COMDOSE  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  AG A . CUM  DOSE , 
which    holds   the   accumulated    dosage    for    each    agent. 

AG. DECAY  GLOBAL     VARIABLE     (1-D)  REAL 

This  array  provides  the  amount  of  decay  of  each 
agent  due  to  weatherinq  that  can  be  expected  to 
occur  in  the  interval  DELT.  It  is  multiplied  by 
the  deposition  DEP.G.OLD  at  the  beginning  of  the 
interval  to  yield  the  value  at  the  ena  of  the 
interval. 

Dimensions:    N.  AGENT 

Value:    As    given  above,    for    each    agent. 

AG.DECCN.  DOSE       TEMP.     ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  the  array 
AGA.  DECON.  DCSE,  which  stores  the  average  desage 
received  during  each  interval  DELT  during  the 
decontamination    process 

AG.  IMPAIR  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  the  array 
AGA.  IMPAIR,  which  cjives  the"  desage  threshold  of 
the   PERSON    for    impairment. 

AG.INCAP  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  the  array 
AGA.  INCAP,  which  gives  the  dosage  threshold  of  the 
PERSON    for    incapacitation. 

AG. INHAL. FACTOR    GLOBAL    VARIABLE ( 1-D)  REAL 

This    arrav      stores   the      conversion    factor      used   to 
cenvert   the   mg .         of   agent    inhaled    into      the    lungs 
into    an   equivalent   intravenous   dose. 
Units:    Dimensionless 

Dimension:    N. AGENT 

Value:    As    given  above,    for    each    agent. 
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AG.LETH  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  tc  the  array 
AGA.  LETH,  which  gives  the  lethal  dosage  threshold 
of   the    PERSON. 

AG. PICKUP  GLOBAL    VARIABLE     (1-D)  FEAL 

This  array  serves  as  a  conversion  factor  to 
convert  the  deposition  on  the  ground  DEF.G.CURR  in 
a  contaminated"  area  to  the  deposition  that  would 
be  found  on  the  surface  of  personnel  and  vehicles 
crossing  that  area  -  thus,  it  represents  the 
percentage  of  the  agent  picked  up  in  traversina  a 
contaminated   area. 

Dimension:    N.  AGENT 

Value:    As    given  above,    for    each   agent 

AGA.CUMDOSE  GLOBAL    VARIABLE     (1-D)  REAL 

I  h  is    a  rr  a  7    he  1  ds    t  h  e      a  c  c  u  rr.  u  1  a  t  s  d    i  r.t  r  a  v  9  r.  c  u  £    ( I  •' 
desace   for    sach  agent.        It      is    incremented    in   the 
DCSE1,    DOSE2,    and    D0SE3    routines. 

Dimension:    N.  AGENT 

Value:      The     dosaae    in      mg    accumulated      no   to      the 
current  time 


on.    L,  L.  V-  UH    lUL/JU         UiUU.lXl  <    .1  C\  J.   A  _   A-  _  {       •  U  f 


.     —  n  — > 


This  array  holds  the  average  dosage  for  each 
agent, -in  mg,  that  the  PERSON  will  receive  during 
each  DELT  interval  while  he  is  performing  deconta- 
mination. It  is  used  to  increment  the  accumulated 
desaae  array  AGA.CUMDOSE  for  every  DELT  interval 
during  whicn  the  PERSON  is  performing  decontamina- 
tion.   The    DECCN2    routine   will   compute   this   value. 

Dimension:    N.  A  GENT 

Value:  A  dosage  in  ma,  which  is  the  total  dose 
received  during  decontamination  divided  by  the 
number  of  DELT  intervals  it  takes  to  perform 
the   decontamination. 

AGA. IMPAIR  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  holds  the  impairment  dose  threshold 
values  for  each  agent.  This  array  is  created  when 
the  PERSON  is  created  by  multiplying  D. IMPAIR 
times  the  lethal  dose  threshold  values  created 
through  a    draw   from    D.LETH. 

Dimension:    N. AGENT 

Value:    As    given  above,    for    each   agent 
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AGA.INCAP  GLOBAL     VARIABLE     (1-D)  REAL 


rray    holds    the   incapacitation   dose    threshold 

for    each   agent.       Pais    array    is    created   when 

*SON    is    created   by   mult iplymq   D.INCA?    times 


This    arr. 
values 

the   PERSON    is    created    by   multiplying 

the   lethal    dose   threshold    values    created    througn   a 

draw    from    CL2TH. 


Dimension:    N.  AGENT 

Value:    As    given   above,    for    each   agent 

AGA.LETH  GLOBAL     7ARIAELE     (1-D)  REAL 

This  array  holds  the  lethal  dose  threshold  values 
fcr  each  agent.  This  arrav  is  created  when  the 
PERSON  is  created  by  randoalv  drawina  from  the 
distribution   found   in   the   array   D.LETH." 

Dimension:    N.  AGENT 

Value:    As    given   above,    for    each   agent 

AGENT.  TYPE  GLOBAL    VARIABLE     (1-D)  INTEGER 

This  array  is  used  to  store  an  inteaer  used  to 
identifv  the  tyoe  of  agent.  Ail  nerve  agents 
should  be  given  a  value  or  1;  other  positive  inte- 
gers can  be  used  to  denote  other  types  of  agent » 
It  is  used  to  chec*  the  tvoe  of  agent  when  the 
nerve  agent  antidote  is  injected;  if  the  agent 
type  is  nerve,  the  dosage  will  be  reduced"  by 
N  A  A.  FACTOR;  if  the  tvpe  is  not  n^rve,  then  no 
dcsage   reduction    will   be   applied. 

Dimension:    N.  AGENT 

7  a  lu  e : 

1    -   For  nerve   agents 

AL.MAX.DIST  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  holds  the  maximum  distance  from  a 
PERSON  to  another  PERSON  or  ALARM  over  which  he 
wculd  hear  the  alarm  or  notice  the  reaction  of 
that  other  PERSON  to  a  chemical  hazard.  Any  PERSON 
or  ALARM  that  has  previously  detected  the  cresence 
of  a  chemical  hazard  will  warn  all  ot  her  ""PERSONS 
within   this   distance   of   his    position 

Dimension:    N.SIDE 

Value:  Derived  from  normal  line-cf-sight  condi- 
tions and  the  expected  distance  that  one  could 
hear    the  standard   alarm 
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ALARM  TEMP.    ENTITY 

This  entity  represents  the  standard  automatic 
alarm  or  detection  device  that,  when  it  directs 
the  presence  of  a  chemical  agent,  will  sound  an 
alarm  (or  otherwise  notify  nearby  personnel).  It 
should  be  created  in  appropriate  numbers  when 
vehicles   and   units   are   created.  It    has    3   attri- 

butes:   WARNING,    X. ALARM,    and    Y. ALARM. 

ALPTF  GIOBAL    VARIABLE     (1-D) 

This  array  is  used  to  store  the  pointer  to  the 
raemorv  location  where  the  temporary  entity  ALARM 
and   its  attributes   are   stored." 

ANTIDOTE  TEMP.    ATTRIBUTE  INTEGER 

This    attribute      serves    as    a      pointer   to  -.he  array 

i.  ANTIDOTE,        which    stores      the      factors  by  which 

dosage  of  each  agent  will  be  reduced  due  to  a 
first    aid   treatment 

CHANGE. ORDER         GIOBAL    VARIABLE     (2-D)  REAL 

This  array  is  used  to  order  changes  in  chemical 
protection  external  to  the  effects  model.  The 
array  can  be  accessed  by  any  routine  by  the  name 
of  each  PERSON,  and  the  changes  in  protection  are 
ordered  by  changing  the  array  values  (they  are 
initialize  a  at  -1  by  the  driver  program)  .  Af  cer 
changes  have  been  made,  they  will  be  implemented 
the  next    time   that    CHEM. CHECK    is    called. 

Dimensions:    N.  PERSON   by    10 

V  a  lu  e  : 

1st  dimension:  The  name  of  the  PERSON 
2nd  dimension: 


1  -  Enter  1  if  you  want  the  PERSON  to  mask 

2  -  Enter  the  value  of  the  new  CP  category  if 
you  want  the  PERSON  to  change  his  collec- 

tive protection  (values  1-5) 

3  -  Enter  1  if  you  want   the  PERSON  to  create 

temporary  overhead  cover 

4  -  Enter  the  value  of   the  protection  factor 

for  a  new  item  of   clothing  or  g*=ar  to  be 
put  on  over  body  area  1 

5  -  Same  as  above  for  body  area  2 

6  -  Same  as  above  for  body  area  3 

7  -  Same  as  above  for  body  area  4 

8  -  Same  as  above  for  body  area  5 

9  -  Same  as  above  for  body  area  6 

10  -  Same  as  above  for  body  area  7 

CHEM. CHANGE     TEMP.  ATTRIBUTE         INTEGER 

This   attribute  stores   the  Dointer   to  the   array 
CHANGE. ORDER,   which   is  used  to  order   changes  in 
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chemical      protection      external 
effects   model. 


to 


the 


:hemicai 


CHEMDET 


TEMP.    ATTRIBUTE 


INTEGER 


This  attribute  shows  if  the  PERSON  has  detected 
the  Dresence  of  a  persistent  chemical  agent  hazard 
as  of  the  previous  iteration  of  CHEfl. CHECK.  A 
detection  in  the  current  DELT  iterval  will  cause  a 
change  in  this  attribute  at  the  beginning  of  the 
iteration    for   the    following    DELT    interval. 

Values  : 

0  -   indicates   no    detection 

1  -  indicates   detection 


CHEJSSIT 


GLOBAL    VARIABLE 


INTEGER 


This  variacie  indicates  the  current  situation 
facing  the  PERSON  during  this  iteration.  The  value 
is  determined  by  CHEM. CHECK  at  the  beginning  of 
the   iteration    over    this    PERSON. 


Values 
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COLOR 


TEMP.    ATTRIBUTE 


INTEGER 


An  attribute  used    in   STAR,    this 
to  which    the  en-city   belongs. 

Values:    Any  nonnegative   integer 
CONTAMINATED         TEMP.    ATTRIBUTE 


indicates   the    side 


INTEGER 


This  attribute  indicates  if  there  is  contamination 
over  the  entire  surface  of  the  PERSON  or  his 
collective    protection 

Values : 

0  -   No   contamination   over    all    surfaces 

1  -  Contamination    present    on   all    surfaces 
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CP 


TEMP.    ATTRIBUTE 


INTEGER 


This   attribute   indicates  the   current   level  of 
collective  protection  afforded  the  PERSON 

V  a  lu  e  s : 

1  -  A   vehicle   with    an   operating   overpressure 

system 

2  -    A    vehicle    without    an   overpressure    system 

3  -   A    bunker  or   building 

4  -   A    foxhcle,      with   or   without    temporary   overhead 

c  o  va  r 

5  -   No   protection     (the    PERSON    is    in   the    open) 


CREW 


SET 


(1-D) 


This  set  is  created  for  each  vehicle.  Filed  in  the 
set  are  the  PERSONS  that  form  the  crew  of  the 
v  e  hi  c  1  e 


D.IHPAI8 


GLOBAL     VARIABLE     (1-D) 


REAL 


This  array  is  used  to  determine  the  impairment 
threshold  acse  for  the  PERSON.  It  represents  the 
fraction    of     the    lethal   dose      for   each      agent   that 


would      cause      impairment 


The      thresholds 


az 


created   by      multiplying   -.his      array   bv      the    lethal 

,rray    AGA.LETH. 

Dimension:    N.  AGENT 


dose    thresholds  stored    in    the    array 
Value:    Anv    fraction    between    0    and    1 


C.INCAF 


GLOBAL    VARIABLE     (1-D) 


REAL 


This    array    is   used   to   determine   the  incapacitation 

threshold    dose    for   the      PERSON.       It  represents   the 
fraction    of     the    lethal   dose      for    each'     aqent   that 

would    cause     incapacitation.        The  thresholds   are 

created    by      multiplying  this      array  by      the    lethal 

dose    thresholds  stored    in    the    array  AGA.LETH. 

Dimension:    N.  AGENT 

Value:    Any    fraction    between    0    and    1 


E. LETH 


GLOBAL    VARIABLE     (2-D) 


REAL 


This  array  is  a  distribution  used  to  determine  the 
lethal   threshold      dose    for      the    PERSON.  A   random 

draw  from  the  distribution  for  each  agent  will 
establish  the  lethal  dose  of  that  agent  for  the 
PERSON 

Dimensions:    N.  AGENT    by    3 

V  a  lu  e  s  : 

1  -   The   type  of  distribution    (see   DISTRIB,      below) 

1-6 

2  -  The  first  oarameter  of  the  distribution 
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3  -The  second  parameter  of  the  distribution,  if 
any.  The  value  can  be  left  at  0  (the  initial 
value  when  the  array  was  reserved)  if  there  is 
no   second   parameter 

D.MSKLIAK  GLOBAL    VARIABLE     (2-D)  PEAL 

This  array  provides  the  probability  distribution 
for  the  leakage  of  the  protective  mask.  The  vari- 
able MASKLEAK,  the  percentage  of  leakage  of  the 
mask  to  vapors,  is  drawn  from  it  usina  the  func- 
tion   DISTRIB 

Dimensions:    N.SIDE   by    3 

Values : 

1  -  The   distribution   type 

2  -  The   first    parameter  of    the   distribution 

3  -  The  second   parameter  of   the   distribution 

D.PF.LEAK  GLOBAL     VARIABLE     (2-D)  REAL 

This    array      provides   the      probability   distribution  • 
for   determining      the    amount      of    leakage      ~c    liguia 

agents  found  in  the  items  of  protective  clctHing 
that  cover  the  seven  body  areas.  The  array 
elements    PFA.LEAX    are   drawn    zrom    the   distribution. 

Dimensions:   7    (the   number   of   body   areas)     by    3 

Values : 

1  -  The   distribution    tyoe 

2  -   The   first    parameter'of    the   distribution 

•3       _      -n  V    ~       aarriT'A       r\i>  vara  „  j.   _  _      _  £      -  V   2       J    .•  _  j.  _  .:  u  ,,  x.  i    ^-, 

J  J.-1-    3cv.uuJ     pataulc  .  SI     ^  ^      u  n  3     u  ±iz J^ <  li 

DEFNOM  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  aives  the  relative  defilade  of  the 
PERSON   at    any   given    time 

V  a  lu  e  s  : 

1  -   in   a    foxhole 

2  -  prone 

3  -  crawling 

4  -   kneeling  or   sitting 

5  -   standing 

CELT  GLOBAL    VARIABLE  REAL 

The  variable  DELT  is  a  user-supolied  parameter 
that  gives  the  time  interval  between  iterations  of 
CHE1. CHECK.  It  is  recommended  that  this  interval 
be  on    the    order   of    10   seconds    in    length 


DEP.A.CDRR  GLOBAL    VARIABLE     (1-D)  REAL 

.olds      the     current  value 

of    agent  (s)       in    the  air    (at   a    heigh 
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This      array     holds      the     current      values  the 

concentration 


of  2    meters)    at   the    location    of    the   PERSON.         This 
information   is    supplied   by    NUSSE    II   or   soma    equiv- 
alent   model. 
Units:    mg    /  cubic    meter 

Dimension:    N.  AGENT 

Values:    As   given    above    for    =ach   agent 

DEP. A. OLD  GLOBAL     VARIABLE     (1-D)  REAL 

This  array  holds  the  most  recent  values  for  the 
concentration  of  aaant(s)  in  the  air  (at  a  height 
of  2  meters)  at  the  location  of  the  PERSON.  This 
information  was  obtained  during  the  last  iteration 
of  the  model. 
Units:    mg    /  cubic    meter 

Dimension:    N.  A  GENT 

Values:    As   given    above    for    each    agent 

CEP. AIR  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  servas  as  a  pointer  to  the  array 
DEP.  A.CURR,  which  storas  the  current  agent  concen- 
tration  in    the   air. 

CSP.G.CURR  GLOBAL     VARIABLE     (1-D)  REAL 

This    array    holds    the   currant      values   for    the    depo- 
sition     on      the      ground   at      the      location      of      the 
PERSON.      These   values    ara   supplied      ny    NUSSE    II   or 
seme    equivalent   model 
Units:  'mg/    sq.    cm 

Dimension:    N. AGENT 

Values:    As    given    above    for    aach   agent 

EEP.G.OLD  GLOBAL    VARIABLE     (1-D)  REAL 

This    array      holds    the    most      recent    values      for    the 
deposition    en      the   around   at      the   location      of   the 
PERSON.         This   information    was   obtained    during   the 
last    iteration   of    the   model. 
Units:    mg/    sq.    cm 

Dimension:    N. AGENT 

Values:    As   given    above    for    each    agent 

CEP.GND  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointar  to  the  array 
DEP.  G.CURR.  which  stores  the  current  values  for 
the  deposition   on    the   ground. 
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DEP.RED 


GLOBAL     VARIABLE     (3-D) 


REAL 
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Dimensions:    N.  AGENT    by    3   by    2 
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DISIRIB 


FEAL  FUNCTION 


The  function  distrib  accepts  a  pointer  to  the  last 
dimension  cf  the  probability  distributions  us€d  in 
the  model.  It  will  then  draw  a  random  number  from 
any  one  of  6  soecified  distributions. 


Values  : 

1st   parameter:    The 
1    -  Deterministic 

2nd 

paiamete  r: 

3rd 

parameter: 

2    - 

uniform 

2nd 

parameter: 

3rd 

paramete  r: 
Normal 

3    - 

2nd 

paramete  r : 

3rd 

parameter: 
Lcgnorma  1 

4    - 

2nd 

parameter: 

3rd 

paramete  r : 
Exponent ia 

5    - 

2nd 

paramete  r: 

3rd 

parameter: 

6    - 

Beta 

2nd 

paramete  r: 

3rd 

paramete  r: 

e  type  of  distribution  desired. 

The  value  desired 

Not  applicable 

The  beginnina  of  the  interval 

The  and  of  the  interval 

The  mean 

The  standard  deviation 

The  mean 

The  standard  deviation 


The  mean 

Not  applicable 

The  power  of  x 

The  power  of  (1-x) 
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CT.DECCN  GLOBAL    VARIABLE     (4-D)  REAL 

This  array  provides  a  probability  distribution 
from  which  the  time  it  taKss  for  emergency  imme- 
diate decontamination  of  skin  or  clothing  for  each 
body  area  is  drawn.  This  time  does  not  include 
the  time  required  to  don  protetive  clothing  after 
decontamination. 

Dimensions:    N.SIDE   by   N.  AGENT    by    7    body    areas    by   3 

Values  : 

1st   dimension:    The   side   of    the    PERSON 

2nd  dimension:  The  agent  concerned  (in  multiple 
agent  situations,  a  factor  MULT. AG. DECON  will 
provide  a  way  of  adjusting  the  overall  decon- 
tamination  time) 

3rd  dimension:      The    bod>   area    concerned    (1    through 

4th  dimension: 

1  -   The  distribution   type 

2  -    The  first    parameter" of   the   distribution 

3  -   The  second    parameter   of    the   distribution 

DT. DETECT  GLOBAL    VARIABLE     (5-0?  REAL 

This  array  contains  the  probability  distribution 
that  is  used  to  determine  the  glimpse  orobabilitv 
of  detection,  PT. CHEMDET,  of  a  persistant  chemical 
agent  hazard,  based  on  noticing  physical  signs, 
during  the  interval  DELT.  If  PT.CHEMDET  is  greater 
than  or  equal  to  a  uniform  (0,1)  random  dumber, 
detection  will  have  occurred  durina  DELT.  Because 
the  variable  PT.CHEMDET  is  a  Drobabilityr  onlv  a 
uniform  or  deterministic  distribution  (with  Daram- 
eter  (s)  between  0  and  1)  or  a  be^.a  distribution 
can  be   used. 

Dimensions:    4    by    N. AGENT   by    5    by    2    by    3 

V  a  lu  e  s  * 

1st  dimension:  The  chemical  situation  CHEMSIT  ♦  1 
(the    ♦  1   is   to    avoid   having   an    index    of   zero) 

2nd  dimension:    The   agent   present 

3rd  dimension:  The  collective  protection  category 
CP    (1    thru   5) 

4th  dimension:  The  value  of  the  attribute  MASK  +  1 
(mask    cff   or    on) 

5th   dimension: 

1  -    The  distribution   type 

2  -    The   first    oarameter   of    the   distribution 

3  -    The  second" parameter   of    the   distribution 

DT.MASK  GLOBAL    VARIABLE     (2-D)  REAL 

This  array  holds  the  probability  distribution  used 
tc  determine  the  time  required  to  don  the  protec- 
tive mask.  The  temporary  T.M.D  is  drawn  from  the 
distribution;  when  added  to  the  current  simulation 
time  T.CHEMCURR,  this  provides  the  time  at  which 
the   mask   was  donned,    T.MASK. 

Dimensions:   N.SIDE   by    3 
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Values  : 

1st  dimension:  The  side  of  the  PERSON 
2nd  dimension: 

1  -  The  distribution  type 

2  -  The  first  parameter  of  the  distribution 

3  -  The  second  parameter  of  the  distribution 


ET.NAA 


GLOBAL    VARIABLE     (2-D) 


REAL 


This  array  holds  -the  probability  distribution  used 
to  determine  the  time  required  to  inject  the  nerve 
agent  antidote.  The  temporary  variable  T.NAA.D  is 
drawn  from  the  distribution  and,  when  added  to 
T.CHEMCORR  ,  sets  the  time  at  which  the  injection 
was   complete,    T.NAA 

Dimensions:    N.  SIDE   by   3 

V  a  lu  e  s  : 

1st   dimension:    The   side   of    the    PERSON 
2nd  dimension: 

1  -    The  distribution    tyoe 

2  -    The  first    oaranuter'of   the   distribution 

3  -    The  second" parameter   of   the   distribution 
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letely    ever   the    body    (T.OHC). 
Dimensions:    N.SIDE    by    3 

V  a  lu  e  s  : 

1st  dimension:    The    side   of    the    PERS 
2nd   dimension: 

1  -    The  distribution   type 

2  -    The   first    oarameter   of    the 

3  -    The   second*  parameter    of    th 
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CT.PE 


GLOBAL     VARIABLE     (4-D) 


REAL 


This  array  holds  the  probability  distribution  used 
to  determine  the  time  required  to  don  a  cjiven  item 
of  chemical  protective  clothing,  for  each  body 
area.  The  temporary  variable  T.PF.D  is  drawn  from 
the  distribution;   when  added  to  T. CHE3C0RH,   this 

ields  the  time  at  which  the  clothing  was  donned, 

A.PF.CHEM(i)    for    body   area    i. 


" 


Dimensions:   N.SIDE   by   3 

Values : 

1st  dimension:  The  side  of  the  PERSON 

2nd  dimension: 

1  -  The  distribution  type 

2  -  The  first  Darameter  of  the  distribution 

3  -  The  second' parameter  of  the  distribution 
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ESSENCE 


TEMP.  ATTRIBUTE 


INTEGER 


This    attribute    is    used   to   store    the   pointer   of   the 
entity   UNIT    (not    modelled      in    the   chemical    effects 
model.      but      included    in  the      STAR    implementation) 
associated    with      the   entity      PERSON.    "Ecr      further 
details,    see  Apoendix   D,    Section    2. 


MASK 


TEMP.    ATTRIBUTE 


INTEGER 


This  attribute  indicates  if   the  PERSON  is  wearing 
the  chemical  protective  mask. 

Value: 

0  -  if  the  mask  is  not  being  worn  (off) 

1  -  if  the  mask  is  being  worn  (on) 


MASKLEAK 


TEMP.  ATTRIBUTE 


REAL 


This  attribute  indicates  the  amount  of  leakage  (if 
any)  that  the  mask,  will  leak  to  .vapors  and  aero- 
sc  Is  It  is  mu  i*-  ]  p  1  ^  ed  by  """  h  ~  o  u  sid  e  co  p  c  a  ^ *  ■>■  a*-  "^  or 
of  aaent    at    the^PERSON's   location,    DEP.  A.  CURST   ~"tc 

yield  the  effective  concentration  of  agent  inside 
the  mask.  The  value  is  drawn  from  the  distribu- 
tion   D.MSKLEAK 

Values : 

G    -    If   the  mask    does    not    leak 

A   fraction    between   0      and    1    if   the       mask   dees 
leak 


MIN.  A.CHE  M 


GLOBAL    VAEIA3L2     (1-D) 


REAL 


This  array  provides  the  minimum  significant  level 
of  air  concentration  for  each  agent.  If  the 
concentration  is  below  this  value,  it  is  treated 
as  if    there   were    no   agent    present. 

Dimension:    N.  A  GENT 

Values:  The  minimum  significant  concentration  for 
each    aaent 


MIN.G.CHEM 


GLOBAL    VARIABLE     (1-D) 


REAL 


This  array  provides  the  minimum  significant  level 
of  ground  deposition  for  each  agent.  If  the  depo- 
sition is  below  this  value,  it  is  treated  as  if 
there    were    no   agent    present. 

Dimension:    N. AGENT 

Values:         The    minimum      significant    deposition      for 
each    agent 
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MULT.AG.DECON       GIOEAL    VARIABLE     (1-D)  REAL 

This  array  provides  a  means  of  adjusting  the  time 
it  takes  to  decontaminate  a  given  body  area, 
T.DECON.  D,  drawn  from  DI.DECON,  to  allow  for  the 
presence  cf  more  than  one  agent  on  the  skin.  If 
there  is  a  second  agent  present,  T,D2C0N.D  will  oe 
multiplied  by  MULT.AG.DECON  to  vield  the  time 
required  to  decontaminate  bo-h  agen~s  simultane- 
ously. If  there  are  three  aaents,  T.DSCON.D  will 
be  multiplied    by    MULT.AG.DECON   twice;    etc. 

Dimension:    N.SIDE 

Value:      The   multiplication    factor   for   the    side   th  = 
PERSON    is    on 

N. AGENT  GLOBAL     VARIABLE  INTEGER 

This  variable  gives  the  maximum  number  of  agents 
that  will  t€  used  in  a  given  scenario.  It  is  used 
to  dimension  all  arravs  dependent  on  the  agent 
tyoe,  and  ser  the  value  for  ail  "DO  LOOPS"  that 
iterate   cvar  the    agent:    type. 

Value:    As    given  abova 
N. ALARM  GIOBAL    VARIABLE  INTEGER 

This    variable    gives    the   number    of    ALARMS    created. 
Vaiue:    As    given  above 

N.PEESCN  GLOBAL    VARIA3LE  INTEGER 

This  variable  gives  the  number  of  PERSONS  craa-.ad. 
Value:    As    given   above 

N.SIDE  GLOBAL    VARIABLE  INTEGER 

This  variable  gives  the  total  number  of  sides 
(forces)  -c  be  played  in  the  sceanrio.  It  may  be 
simply  1  (single  side  scsnario) ,  2  (RED  on  BLUE  or 
eauivalent)  or  greater  than  two,  if  allied  and 
third-party   forces   are   played. 

Value:    As    given  above 

N.VEH. SYS. TYPE    GLOBAL    VARIABLE  INTEGER 

This  variable  gives  the  number  of  vehicle  system 
types  played  in  the  scenario.  The  two  attributes, 
system  type  and  weapon  type  are  used  to  identify 
particular    vehicle   types. 

Value:    As    given  above 
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N.VEH. WPN.TYPE    GLOBAL     VARIABLE  INTEGER 

This  variable  gives  the  number  of  vehicle  weapon 
types  played  in  the  scenario.  The  two  attributes, 
system  type  and  weapon  type  are  us  3d  to  identify 
particular    vehicle  types. 

Value:    As    given  above 

N. VEHICLE  GLOBAL    VARIABLE  INTEGER 

This  variable  gives  the  total  numoer  of  vehicles 
created. 

Value:    As    given  above 
NAA. FACTOR  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  provides  the  reduction  factor  used  to 
reduce  the  effective  intravenous  dosage  to  account 
for  the  effect  of  a  nerve  agent  antidote.  This 
v  a  lu  e  is  ■:  lac  ed  in  the  a  r  r  a  y  A .  k  -il  I D  0  T  E  w  h  a  n 
nerve  agent  antidote  is  injected.  Bhen  A. ANTIDOTE 
is  multiplied  by  the  current  IV  dosage  contained 
in  AGA. CUM  COSE,  the  nerve  aaent  dosaae  will  be 
reduced   by    the    NAA.  FACTOR. 

Dimension:    N.5IDS 

Value:    The    reduction    factor    as    given   above 

NAME  TFMP.    ATTRIBUTE  INTEGER 

This  attribute  consists- of  an  index  number  used  to 
identify  a  particular  PERSON.  Normally,  it  is  the 
number   of    the   DO    LOOP   iteration    index. 

Value:    As    given   above 

NUMBER  TEMP.    ATTRIBUTE  INTEGER 

This    attribute   consists   of    an    index  number  used   to 

identify      a   particular      VEHICLE.         It      may  be      the 

number  of  the  DO  LOOP  iteration  index,  or  seme 
type    of   vehicle   bumper   or   serial    number. 

Value:    As    given  above 

OLD. DOSE  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  is  used  to  store  the  values  for  the 
accumulated  dosage  as  of  end  of  the  previous  iter- 
ation.     It      is   used      to   determine      times    at      which 


by 

Dimension:    N. AGENT 
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Value:    As    given  above 

CLBCP  GLOBAL    VARIABLE  INTEGER 

This  variable  gives  the  value  for  the  most  recent 
collective  protection  category  that  the  PERSON  was 
in-  if  he  changed  categories  durinq  DELT.  It  is 
set  equal  to  the  current  CP  value  at  the  beginning 
of  the  iteration  by  the  routine  UPDATE;  if  the  CP 
category  changes  for  any  reason,  the  old  category 
is  stored  in  OLDCP  for  the  remainder  of  the  itera- 
tion and  the  new  CP  category  is  stored  in  the 
attribute  CP.  It  is  used  -o  accurately  determine 
the  reduction  in  concentration  or  deposition 
caused    by    the    CP. 

Value:    As    given  above 

CLDX  TEMP.    ATTRIBUTE  REAL 

This  attribute  gives  the  X  coordinate  of  the  loca- 
tion of  the  PERSON  at  the  time  of  the  previous 
iteration . 

Value:    As    given   above 

CLDY  TEMP.    ATTRIBUTE  RE^L 

This  attribute  gives  *he  Y  coordinate  of  the  loca- 
tion   of      the   PERSON      at   the      tim*   of      the    orevious 

i  t  er  a  1 10  n . 

Value:    As    given   above 

CPEN. CLOSED  TEMP.    ATTRIBUTE  INTEGER 

This  VEHICLE  attribute  tells  if  the  vehicle  is 
open      or    closed.  It    is      used      to   determine      the 

leakage  of  agent  into  the  vehicle,  by  setting  an 
index    in    SW. NBC.  FILTER 

Value: 

0  -   if  the    vehicle    is   open 

1  -   if   the    vehicle    is   closed 

FC.ACT.OHC  GLOBAL    VARIABLE     (2-D)  REAL 

This  array  provides  the  probabilities  that  an 
individual  will  choose  a  particular  one  cf  three 
alternative  actions  in  seeking  or  creating  over- 
head cover.  A  uniform  (0,1)  random  number  is  drawn 
and  compared  first  to  the  first  element  in  the 
second  dimension  -  If  this  number  is  less  than 
that  element  of  PC.ACT.OHC,  the  first  action  is 
chosen  (enter  a  vehicle).  If  the  number  is  greater 
than  or  eaqual  to  the  first  element,  but  less  than 
the  second  element  of  the  second  dimension,  the 
second      action  will      be   chosen       (enter   a      bunker)  . 
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Otherwise,  the  third  action  is  chosen  (create 
temporary  overhead  cover).  For  derails,  see 
routine  OHC    (Chapter    3,    Sec-ion    4) 

Dimensions:    N.SIDS   by   2 

V  a  lu.  e  s  : 

1st   dimension:      The   number    of      the   side    the    PERSON 

is   on 

2nd   dimension  : 

1  -   The    probability    of   choosing    action    number    I 

2  -  The   Drotaility"    of    choosing      action    number      2, 

added    to  the    first    probability 

PC.  DEI.  DECON         GLOBAL    VARIABLE     (1-D)  REAL 

This  array  provides  the  probabilities  of  choosing 
to  decontaminate  after  symptoms  of  chemical  agent 
poisoning  have  appeared.  If  decontamination  is 
chosen,  it  will  consist  of  removing  ail  clothing 
and  gear,  decontaminating  the  entire  body,  and 
replacing  the  clothing  witn  full  chemical  protec- 
tive clothing-  This  option  is  offered  when  the 
routine  DECON  is  called  from  the  routine 
SYMPTOM.  DETECT. 

Dimension:    N.SIDE 

Values:  The  probability  of  performing  delayed 
decontamination" 

PC.  IMM.  DECON  GLOBAL    VARIABLE     (1-D)  PEAL 

This  array  provides  the  probabilities  of  cheesing 
to  decontaminate  immediately  after  discovering  the 
presence  of  a  chemical  agent  hazard.  This  is 
prior  to  any  verification  that  the  hazard  in  fact 
aces  exist.  If  decontamination  is  chosen,  it  will 
consist  of  first  decontaminating  exDcsed  skin, 
then  any  clothing  that  is  not  chemical"  protective. 
After  decontamination  has  been  completed,  all 
areas  of  the  bodv  will  be  covered  by  rull  chemical 
crotective  clothina.  This  option  is  offered  when 
the  routine  DECON  is  called  immediately  after 
detection    occurs. 

Dimension:    N.SIDE 

Values:      The      probability   of      perfcrmina    immediate 
decont  am  in  at  ion 

PC. MASK  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  contains  the  probability  of  a  PERSON 
treating  an  artillery  attack  nearbv  as  a  nonuer- 
sistent  chemical  agent  attack.  If  the  PERSON  does 
regard  the  attack  as  possibly  non persistent .  he 
will  mask  but  will  net  don  protective  clothing, 
nor  will  he  be  considered  to"  have  detected  the 
presence    of  a   persistent  chemical   agent    hazard. 

Dimension:    N.SIDE 
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Values:   The   probability   as    given   above 
PC.MOPP  GLOBAL    VARIABLE     (1-D)  REAL 
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array  contains  the  probability  cf  a  PERSON 
ting  an  incoming  artillery  attack  r.earbv  as  a 
istent  chemical  agent  attack.  If  the  PERSON 
regard  the  attack  as  possibxy  persistent,  he 
den  full  protective  clothing,  and  he  will  be 
idered  to'have  detected  the  oreserce  cf  a 
istent    chemical   agent    hazard. 


Dimension:    N.SIDE 

Values:    The   probability  as    given   aDove 


PC.MSKLEAK 


GLOBAL    VARIABLE     (1-D) 


REAL 


This  array  contains  the  probability  that  a  protec- 
tive mask  will  leak  with  respect  to  vapors  and 
aerosols  as  a  result  of  tears,  combat  damage 
imcroDer  fitting  or  donning,  etc. 
will  "leak,  the  leakage  amount  i: 
D.aSKLEAK. 


the    mask 
i  r  a  w  r.      fro  m 


Dimension:    N.SIDE 

Values:    The   probability   as    given   above 


PC.NM 


GLOBAL    VARIABLE     (1-D) 


REAL 


+•1-1 


This      array     contains      the      probability      that 


PERSON,      as      a    result   o: 


P9°' 


raining 


panic. 


will  inject  himself  with  the  nerve  agent  antidote 
under  circumstances  other  than  the  appearence  of 
nerve  agent  symptoms,  such  as  detection  of  the 
agent  of  the  appearence  of  symptoms  caused  by  a 
chemical    agent    other   than    the    nerve   agent. 

Dimension:    N.SIDE 

Values:    The   probability   as    given   above 


PC.OHC 


GLOBAL  VARIABLE  (1-D) 


REAL 


This  array  contains  the  probability  that  a  soldier 
that  has  detected  the  presence  of  a  persistent 
agent  hazard  by  any  means  will  assume  that  the 
agent  is  still  falling  toward  the  ground,  and  as  a 
result   will   seek    overhead   cover. 

Dimension:    N.SIDE 

Values:    The   probability  as    given   above 
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FC.FF.LEAK  GLOBAL    VARIABLE     (2-D)  REAL 


c 


This  array  gives  the  probability  that  the  item  o 
fall  chemical  protection  covering  a  given  body 
area  will  leak  with  respect  to  liquid  agents. 
This  leakage  may  be  caused  by  tears,  combat 
damage,  iaproper  fitting  or  donning,  some  agent 
being  trapped  under  the  garment  from' inadequate  or 
no  decontamination.  If  the  item  will  leak,  the 
leakage  amount   is    drawn    from   D.PF.LSAK. 

Dimension:    N.SIDE    by  7 

Values : 

1st   dimension:    The   side   that   the    PERSON    is   on 
2nd  dimension:      The    probability   as    given   above    for 
the   body  area    1    thru  7 

PERSON  TEMP.    ENTITY 

This  temporary  entity  is  used  to  model  any  ccmca- 
tant    on   the   battlefield. 

PERSPTR  GLOBAL     VARIABLE     (1-D)  INTEGER 

This  array  is  used  to  store  the  pointer  tc  the 
memory  location  where  the  temporary  entity  PERSON 
and   its  attributes   are   stored. 

PF.CHEM  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  stores  the  pointer  to  the  array 
PFA.CHEM,  which  provides  the"  protection  factor  for 
each    of   the   seven    body   areas   of   the    PERSON. 

FF.LEAK  TEMP.    ATTRI3UTE  INTEGER 

This  attribute  stores  the  pointer  to  the  arrav 
PEA. LEAK,  which  provides  tne  percentage  leakage 
with  respsct  to  liquid  agents*  of  the  chemical 
protective  clothing  on  each  of  the  seven  bcdv 
areas    of    the  PERSON. 

PF.MAX  GLOBAL     VARIABLE     (2-D)  REAL 

This  array  provides  the  protection  factor  for  the 
item  that  provides  full  chemical  protection  for  a 
given  body  area.  Implicitly,  this  array  also 
defines  the   maximum    protective    (full  MOPP)    level. 

Dimensions:    N.SIDE   by   7 

Values  : 

1st  dimension:    The   side   that   the   PERSON    is   on 
2nd  dimension:    The   protection    factor   for    each   body 
area,    as  explained   above 
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FFA.CHEK  GLOBAL    VARIABLE     (1-D)  REAL 

This  arra7  provides  the  current  protection  factor 
for  each  of  the  seven  body  areas  of  the 
PERSON .Implicitly ,  this  array  also  defines  the 
current   protective    (MOPP)    level. 

PFA.LEAK  GLOBAL     VARIABLE     (1-D)  REAL 

This    array      provides   the      percentage   leakage      with 
liqui 


respect  to  liquid  aaents  of  the  chemical  protec- 
tive clothing  on  each  of  the  seven  body  areas  of 
the  PERSON.  The  leakage  may  be  caused  by  tears, 
combat  damage,  improper  fitting  or  donning,  some 
agent    being  trapped   under      the   garment    from   inade- 


iaay  . 
combat  damage,  improper  fitting  or  donning,  some 
agent  being  trapped  under  the  garment  from  inade- 
quate or  nc  decontamination.  The  determination  of 
whether  or  not  the  item  would  leak  was  acccm- 
lished  through  a  comparison  to  PC. PF. LEAK.  If 
he  item  will  leak,  the  PFA.LEAK  value  is  drawn 
from    D.PF.LEAK. 


I 


Dimension:    7 

Values: 

0    -    If  the   item    does   net    leak 
A   fraction   between   0      and    1    if   the      item   dees 
leak 

FDPTR  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  the  current 
length   of    the   array    A.  ROUND.  A.  ROUND    is    a    oueue 

in  which  the  time  and  chemical/ronchemical  nature 
of  each  round  landing  sufficiently  near  to  the 
PERSON  during  DELT  to  cause  the  PERSON  to  react 
are  stored . 

Value:      The  number   of   items    in   the   queue    stored   in 
A. ROUND 

BCUNE  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  to  the  array 
A.  ROUND,  which  is  a  queue  into  which  are  o  laced 
the  time  and  chemical/nonchemical  nature  of  each 
round  landing  sufficiently  near  to  the  PERSON 
during   DELT   to   cause   the   PERSON   to   react 

SIDE  GLOBAL    VARIABLE  INTEGER 

This  variable  is  used  to  store  the  value  of  the 
side  the  PERSON  is  on.  If  the  attribute  COLOR  is 
used,     SIDE    =   COLO  B  (PERSON)      +    1 

Value:    COLOR  (PERSON)    ♦    1 
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SKIN  GLOBAL    VARIABLE     (2-D)  REAL 

This  array  provides  the  skin  area  associated  with 
each  of  tns  seven  body  areas.  Different  values  are 
allowed  for  different  sides  to  accomodate 
different  coverages  associated  with  items  cf  the 
standard  protective  gear  -  for  example,  with  one 
force  a  cloak  could  cover  down  to  uhe  knees:  in 
another  foice  a  jacket  which  only  covers  down  to 
the  waist  is  used. 
Units:    square   centimeters 

Dimensions:    N.SIDE    by   7 

Values: 

1st   dimension:    The   side   the    PERSON    is    on. 
2nd  dimension:      The    skin   area   associated    with   each- 
body    area 

SOLDIER  GLOBAL    VARIABLE  INTEGER 

This  variafcla  is  used  to  conveniently  refer  to  me 
memory  location  of  the  PERSON  which  is  currently 
fc  e  in  g    ch  sc  ked   ir.    the    m o  ds  1 . 

Value:    SOLDIER    =    EEESPTB(    NAMS(PERSON)     ) 

SW. BREATHING         GLOBAL     VARIABLE     (3-D)  REAL 

This      array   provides      the      breathing  rate   of      the 

PERSON   as    a   function    of   his    activity.  His    activitv 

is     determined   from      his     system      and  weapon     tvoe 

VEH. SYS. TYPE  and       VEH.  WPN.  T  Y?E,      and  his    defilade 
DEFNOM. 
0  n  it  s : 

Dimensions:    N. VEH . SYS. TYPE    by    N . VEH .WPN . TYPE    by    5 

V  a.  1L  U  €  s  * 

1st   dimension:  The    VEH. SYS. TYPE    of    the    PERSON 

2nd  dimension:  The    VEH. WPN. TYPE   of    the    PERSON 

3rd   dimension:  The    breathing    rate   associated    with 

the   DEFNOM  and    the    other   two    dimensions 

SW. NBC. FILTER       GLOBAL    VARIABLE     (6-D)  REAL 

This  array  provides  the  amount  of  leakage  cf  agent 
through  a  vehicle.  expressed  as  a  percentage  of 
the  outside  concentration.  It  is  used  to  convert 
the  concentration  of  agent  in  the  air  and  deposi- 
tion of  agent  en  the  exterior  of  the  vehicle  _o  an 
equivalent  concentration  and  deposition  inside  the 
vehicle.  The  temporary  variable  PAX  is  used  to 
store      whether      or   "not      the      PERSON      is      crew     or 

Passenger  on  the  vehicle;  the  temporary  variable 
ATCH  is  used  to  distinguish  between  a  vehicle 
with  overpressure  working  (C?  =  1);  a  vehicle 
without  overpressure,  closed;  and  either  vehicle 
open     (CP  =  2). 


168 


Dimensions :      N 
by    3    by   2 


Values : 

1st 

dimension:    Th 

2nd 

dimension:    Tii 

3rd 

dimension:    PA 

PAX   =    1  if   ? 

PAX    =    2      if 

set  CREW 

4th 

dimension:    HA 

HATCH    =    1      i 

overpres 

HATCH    =   2    if 

1        ( 

closed) 

HATCH    =    3    if 

5th 

dimension:    St 

1    -    for  liqu 

2    -    for  vapo 
dimension:    Th 

6th 

c   a 


.VEH. SYS. TYPE    by    N . VEH . WPN . TYPE    by    2 
by    N. AGENT 


e    VEH. SYS. TYPE    of    the    PERSON 
e    VEH. WPN. TYPE    of    the    PERSON 
X 
PERSGN   belongs   to    a   set    CREW 
f   the   PERSON      does   not    belong 

TCH 

f   CP  =    1       (vehicle   with    operating 

sure  system) 

CP   ="2  and  OPEN. CLOSED  (VEHICLE) 
vehicle   without   overpressure; 

OPEN. CLOSED (VEHICLE)  =  0 

ate  of  agent 
id  agent 
r  or  aarcsoi 
e  agent  tyoe 


T.  AG.  IMPAIR 


TEMP.    ATTRI3UTS 


INTEGER 


This    attribute 


t  =ic      a  c: 


TA. IMPAIR,      which    gives    the      time 


pointer   to      the    array 


:ie    impair 


ment    dose    threshold    was   reached    for    aach    agent. 
T.AG.INCAP  TEMP.    ATTRIBUTE  INTEGER 


This   attribute      serves   as   a 


p  o  i  n ' 


.o 


•>-'-- 


array 


TA.INCAP,       which    gives   the_time    that    the    incapaci- 
tation Q,o se    tnr as uOj. ci    was    raacnei   zcz    eacn    ag<=*v 


T. CEEMCURR 


GL03AL  VARIA3LE 


REAL 


This  v 
of  the 
s  c  he  d  u 
ccmpl  e 
last  i 
a  s  si  a  n 
with" t 
the  va 
p  s  rf  o  r 
will    b 


aria 
tim 
led 
ted. 
-era 
ed  t 
he  t 
riab 
m  th 
agin 


ble  serves  as  a  counter  that  keeps  track 
a   at    which      the    last   action    performed   or 

to  be  performed  by  the  PERSON  was 
It  is  initially  set" at  the  time  of  the 
tion.  TL;  as  events  occur  and  times  are 
o  them.  this  variable  is  incremented 
ime  of  the  event*  as  actions  are  taken, 
la  is  incremented  by  the  time  i4-  took  to 
at  action.         The    next    action,    therefore, 

at   time   T.CHEMCURR. 


T.CHEMDET 


TEMP.    ATTRIBUTE 


REAL 


This  attribute  stores  the  time  at  which  the  PERSON 
detected  the  presence  of  a  persistent  chemical 
agent    hazard.  This   detection   may      have   occurred 

due  to  any  of  the  four  possible  means  of  detection 
{see  the  DETECTION  routine  discussion  in  Chapter  3 
for  more    detail)  . 

Value:    The    time   at   which   detection    occurred 
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T.CCNTAM  TEMP.    ATTRIBUTE  REAL 

This  attribute  gives  the  time  at  which  contamina- 
tion occurred  over  the  entire  surface  of  the 
PE2S0N  or  his  collective  protection.  It  is 
assianed  a  time  when  the  attribute  CONTAMINATED 
changes  frcm  0   to    1. 

Value:    The    time   at    which  contamination    occurred 

T.CP  TEMP.    ATTRIBUTE  REAL 

This  attribute  provides  the  time  at  which  the 
PERSON  assumed  his  current  level  of  collective 
protection . 

Value:    The    time   as   given   above 

T.CU5RENT  GLOBAL    VARIABLE  REAL 

This  variable  gives  the  current  simulation  time 
within   the    main  combat      model   calling    the   chemical 

affects   routines. 

Value:    The    time   as   given   above 
S.DECON  TEMP.    ATTRIBUTE  REAL 

This  attribute  gives  the  time  at  which  the  process 
Ql    j.cv-wn-au—  .i&  —  on    «<ao    ^war  ^.t  ^-ji^  —    _nc.L.iu-    ens 

dona in  a  of  full  chemical  protection  after  deconta- 
mination. 

Value:    The    time   as    given   aoove 

T.LEIH  TEMP.    ATTRIBUTE  REAL 

This  attribute  aives  the  time  of  dsath  occuring  as 
a  result  of  an  overdose  of  chemical  aqent.  It  is 
assigned  the  first  time  the  dosage  from  any  chem- 
ical' agent  passes  its  respective  lethal  dese 
threshold. 

Value:    The    time   as   given   above 

I. MASK  TEMP.    ATTRIBUTE  REAL 

This  attribute  stores  the  time  at  which  the  PERSON 
finished   denning    his   protective    mask. 

Value:    The    time   as   given   above 
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T.NAA  TEMP.    ATTRIBUTE  REAL 

This  attribute  stores  the  time  at  which  the  PERSON 
finished  injecting  himself  with  a  nerve  agent 
a  n  ti  d  o  te . 

Value:    The   time  as   given  above 

T.OHC  TEMP.     ATTRIBUTE  REAL 

This  attribute  provides  the  time  at  which  the 
PERSON  assumed  his  current  level  of  collective 
protection,  if  he  went  into  CP  1,  2,  or  3  during 
this  iteration;  otherwise,  it  is  the  time  that  he 
created  temporary  overhead  cover  in  CP  4  or  5.  It 
is  also  usee  as  a  checK  to  see  if  temoorarv  over- 
head   cover   exists. 

V  a  lu  e : 

0  -  if  no  overhead  cover  exists   (or  the  PERSCN  is 

in  C?   1.   2,   or   3,   where   it  automatically 

exists) 

The  time    as   liven    above,    it    overhead  cover    exists. 

T.PF.CHEM  IEMP.    ATTRIBUTE  INTEGER 

This  attribute  serves  as  a  pointer  tc  the  array 
TA.PF.CHEM,  which  gives  the  time  that  the  current 
level  of  individual  chemical  protection  was 
denned,    for  each    body   area. 

TA. IMPAIR  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  provides  the  time  at  which  the  impair- 
ment dose  threshold  was  reached  fcr  each  aaent. 
Its  pointer  is  stored  in  the  attribute 
T.AG.  ISPAIB. 

Dimension:    N. AGENT 

Values : 

0    -  if   the    impairment    dose      threshold    has    not   been 

met 
The  time      as  aiven      above   if      the   impairment      dose 

threshold" has    been    reached 

TA.INCAP  GLOBAL    VARIABLE     (1-D)  REAL 

This  array  provides  the  time  at  which  the  incapa- 
citation dose  threshold  was  reached  for  each 
aaent.         Its  pointer      is   stored      in   the      attribute 

t:ag.incap. 

Dimension:    N. AGENT 

Values : 

0    -  if   the      incapacitation    dose   threshold      has   not 
been    met 
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The  time      as     given   above      if      the      incapacit  at  ion 
dose    threshold    has    baen    reached 

TA.PF.CHEM  GI03AL    VARIABLE     (1-D)  REAL 

This  array  provides  the  time  that  the  current 
level  of  individual  chemical  orotection  was 
donned,  for  each  body  arsa.  The  pointer  to  -his 
array    is    stored  in   the   attribute    T.PF.CHE'1. 

TL  GLOBAL    VARIABLE  REAL 

This  variable  gives  the  simulation  time  within  the 
main  combat  mod~l  at  the  time  of  the  last  itera- 
tion. 

Value:    The    time   as    given  above 
OPTS  GLOBAL    VARIABLE     (1-D)  HEAL 

This  array  is  used  as  a  convenience  to  call  for  a 
uniform    (0,1)     random    number. 

Dimension:    3 

Values : 

1-2     (the  uniform   distribution) 

2-0     (the  first    tiarameter) 

3-1     (the  second  *  parameter ) 

VSH.NO  TEMP.    ATTRIBUTE  INTEGER 

This  attribute  consists  of  the  index  number  used 
tc   identify   the   VEHICLE   that   the    PERSON    is   on. 

Value: 

0    -    The    PEBSON    is    not   on   a    vehicle. 
.NUMBER  (VEHICLE)    that    the   PERSON    is    on,    otherwise. 

VEH.PTR  GLOBAL     VARIABLE     (1-D)  INTEGER 

This  array  is  used  to  store  the  pointer  tc  the 
memory  location  where  the  temporary  entity  VEHICLE 
and  its  attributes   are   stored*. 

VEH. SYS. TYPE         TEMP.    ATTRIBUTE  INTEGER 

This  attribute,  along  with  VEH. WPN  .TYPE,  is  used 
tc  identify   a   particular   vehicle   type. 

Value:    As    given   above 
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VEH.WFN.IYPE  TEMP.    ATTRIBUTE 


INTEGER 


This  attribute,   along  with  VEH. SYS .TYPE . 
tc  identify  a  particular  vehicle  typa. 


is   used 


yap. 
Value:    As    given   above 


VEHICLE 


TEMP.    ENTITY 


This    entity   is   used   to      model    every    vehicle    on   the 

battlefield. 


WARNING 


TEMP.  ATTRIBUTE 


INTEGER 


This  attribute  of  an  ALARM  tells  if  the  ALARM  has 
scunded.  The  ALARM  will  automatically  sound  a 
warning  when  the  concentration  of  aaent  in  th~;  air 
at  the  location  of  the  ALARM  passes  the  threshold 
concentration  set  for  that  alarm  in  the  alobal 
variable  AG. AL .THRESH. 


X. ALARM 


TEMP    ATTRIBUTE 


REAL 


This  attribute  gives  the  X  coordinate  of  the  loca- 
tion of  the  ALARM  at  the  current  simulation  time, 
T.  CURRENT. 


Value:    As    given  above 

X.  CURRENT  ^^M^.    ATTRIBUTE 


REAL 


This  attribute  gives  the  X  coordinate  of  the  loca- 
tion of  the  PERSON  at  the  current  simulation  time, 
T. CURRENT. 

Value:    As    given   above 
Y. ALARM  IEMP.    ATTRIBUTE  REAL 


This  attribute  aives  the  X  coordinate  of  the  loca- 
tion of  the  ALARM  at  the  current  simulation  time, 
T.  CUR  RENT. 


Value:    As    given  above 
Y.  CURRENT  TEMP.    ATTRIBUTE 


REAL 


This  attribute  gives  the  X  coordinate  of  the  loca- 
tion of  ths  PERSON  at  the  current  simulation  *ime, 
T. CURRENT. 

Value:    As    given  above 
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APPENDIX  C 
SI8SCRIPT  IMPLEMENTATION 


A.   ROUTINES 

1«      lil    Hontine    CHEH. CHECK 
Purpose: 


1.  Drives  the  model  and  calls  all  ether 
routines. 

2.  Updates  the  depositions.  certain  global 
variables,  and  schedules  protection 
changes  en  order  through  the  routine 
UPDATE. 

3.  Determines  the  chemical  situation  faced  by 
each   person. 

>i .  Schedules  automatic  reactive  measures  (if 
any)  after  artillery  rounds  impact  near  a 
position. 

5.  Schedules  a  chemical  detection.  either 
directly  or  through  a  call  to  the  routine 
DETECTION,  based  on  the  situation.  When  a 
chemical  hazard  is  detected,  schedules  the 
appropriate  reactive  measures  (seeking 
overhead  cover,  decontaminating, 
increasing   protection). 

6.  Updates  the  dosage  through  a  call  to  the 
routine   D0SE1. 

7.  Assigns  times  at  which  dosaae  thresholds 
are  reached,  and  reactions  (if  any)  to 
symptoms,  through  the  routine 
CHEftCAS. EFFECTS. 


HOUTINES    CALLED    BY    CHEM.  CHECK 

CKEMCAS.  EFf  ECT 

CEOSSING 

EECON 

DETECTION 

DISTRIB 

DCSS1 

MASKING 

MOPP 

OHC 

UPDATE 

LABELS    USED    "WITHIN     ROUTINE 


DETECT. CHEM 
DIRECT 
DCSECOMP 
REACT 
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TEHEORABY    ATTRIBUTES    OF    PERSON  INTEGER 

CHEMDET 

This      attribute      shows      if        the      PERSON      has 
detected   the      presence  of   a     persistent    chem- 
ical     agent         hazard      as        of      the         orevicus 
iteration    of    CHEM. CHECK. 
Values: 

0  -    indicates   no   defection 

1  -    indicates   detection 

CONTAMINATED 

This    attribute    indicates    if   there    is    contami- 
nation over    the   entire      surface  of    the    PERSON 
or  his  collective    protection 
V  al  u  e  s : 

0  -    No  contamination    over    all   sur races 

1  -    Contamination    present   on   ail    surfaces 


c? 


MASK 


This    attribute    indicates    the   current    level   of 
collective   protection    afforded   the    PERSON 
V  al  u  e  s  : 

1  -    A    vehicle   with      an    operating   overpressure 

s  vs t  em 

2  -    A    vehicle    without    an    overpressure   system 

3  -    A    hunker    or    building 

'4   -    A      foxhole,         with    or      without      tsinporarv 

overhead   cover 
5    -    No    protection    (the    PERSON    is    in    the    open) 


This      attribute    indicates      if      the    PERSON      is 
wearina  the    chemical    protective   mask. 
Value : " 

0  -   if  the   mask   is   net    being   worn    (off) 

1  -    if   the  mask   is   being    worn    (on) 

HDPTR 

This  attribute  serves  as  a  pointer  to  the 
length  of   the   array   A. ROUND. 

Value:  The  number  of  items  in  the  queue 
stored   in    A. ROUND 

TEMPORARY    ATTRIBUTES    OF    PERSON  REAL 

OLDX 

This  attribute  gives  the  X  coordinate  of  the 
location  of  the  PERSON  at  the  time  of  the 
previous   iteration. 
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QI.DY 


Value:    As    given   above 


This    attribute   gives   the      Y    coordinate   of 
location   of      the    PERSON      at    the      time   of 
Drevicus   iteration. 
Value:    As   given   above 


the 

the 


CHEMDET 


This  attribute  stores  the  time  at 
PERSON  detected  the  presence  of  a 
chemical   agent    hazard. 


which   the 

pe  rs  i  st  ent 


T.  CO  NT  AM 


This      attribute      gives      the         time      at      which 

contamination        occurred      ever        the        entire 

surface      of      the      PERSON      or      his      collective 

orotection.      It      is  assigned   a   ""rime      wher   the 

attribute   CONTAMINATED    cnanges    from    0    to    1. 

STaluej        The      time        at      which      contamination 

occurred 

T. 

MASK 

rn  V  ■*»   *~*      -^  j»  ^  *•-  ■»   ~i->  .  i  »  ~ 
i  HI  5      aww._i^U   _S 

PERSON    finished 
Value  :    The  t  ime 


stores    tne    time   at 
donning   his    Drotec- 
as    given    aoove 


which    the 
ive    mask. 


T.OHC 


This 
PERSO 
t  ive 
3   dur 
t  ime 
in   CP 
see    i 
Value 
0    -    i 


attribute  provides  the  time  at  which  the 
N  assumed  his  current  level  of  collec- 
protection,  if  he  went  into  CP  1.  2,  or 
mg  this  iteration;  otherwise,  it  is  the 
that  he  created  temporary  overhead  cover 
4  or  5.  It  is  also  used  as  a  check  to 
f  temporary   overhead   cover   exists. 


f     no      overhead      cover 
EERSON    is    in    CP    1,         2, 
automatically   exists) 
The    time   as      given  above,      if 
exists. 


exists 
or    3, 


(or      the 

where   it 


overhead    cover 


X. CURRENT 


This    attribute    aives   the 
location  of    the 'PERSON   a- 
tion    time,    T. CURRENT. 
Value:    As   given   above 


X    coordinate 
the   current 


of   the 
eimula- 


Y. CURRENT 
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This    attribute    gives    the      X    coordinate    of   the 
location   of    the    PERSON    at    the   current    simula- 
tion   time,    T. CURRENT. 
Value:    As  given   above 

GIOEAL    VARIAELES  INTEGER 

CHEMSIT 

This    variable   indicates   the   current    situation 
facing  the   PERSON   during    this    iteration. 
V  al  u  e  s  : 

0  -    The  PERSON    is    stationary    and    has    not    been 

directly   attacked      by  (in      the    immediate 

effects  ellipse  of)  a  chemical  agent 
munitio  n 

1  -    The  PERSON      is   in      the  immediate      effects 

sllipse  of  a  chemical  agent  munition.  He 
may   be    stationary    or    moving 

2  -    The  PERSON    is    moving    in    an   area    of    previ- 

ously deposited  contamination.  Therc  is 
no  airborne   agent    present 

3  -    The      PERSON   is     movma    in      an    area      where 

there  is  still  agent  in  the  air  (it  has 
net  ail  deposited  on  the  around) ,  and 
has  not  teen  directly  attacked  by  a 
chemical   munition 

N.  AGENT 

This  variable^ gives  the  maximum  number  of 
agents  that  wixx  oe  useu  in  a  given  scenario* 
Value:    As    given    above 


SIDE 


This    variable    is      used    to    store   the      value    of 
the    side   the    PERSON  is      on.       If   the    attribute 
COLOR    is    used,     SIDE    =    COLOR  (PERSON)     +     1 
Value:    COLOR  (PERSON)     *     1 

SCLDIER 

This    variable      is    used   to      conveniently    refer 
tc   the   memory   location    of    the    PERSON    wnich    is 
currently    being   checked    in   the    model. 
Value:    SOLDIER    =    PERS?TR(    NAME  (PERSON)     ) 

GIOEAL    VARIAELES  REAL 

A. ROUND  (2-D) 

This  array  forms  a  queue  in  which  are  stored 
the  time  and  chemical/nonchemical  nature  of 
each  round  landing  sufficiently  near  tc  the 
PERSON  during  DELT  to  cause  the  PERSON  to 
react 
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Dimensions:  ( A        number        large  enough        to 

accomodate  all    rounds    landing   close    snough    to 

affect  the   PERSON)     by    2 

Value : 

1st        dimension  :The      time        that      the        round 

impacted. 

2nd  dimension: 

C  -  if  the  round  is  not  chemical 

1  -  if  the  round  is  chemical 


DELT 


The  variable  DELT  is  a  user-supDlied  param- 
eter that  gives  the  time  interval  between 
iterations  of   CHEH. CHECK. 

DEP.  A.CURR  (1-D) 

This  array   holds  the  current  values   for  the 

concentration  of   agent  (s)   in  the  air   (at  a 

height  of  2   meters)   at  the  location   ot  the 

PERSON. 

Units:    sg   /    cubic    lexer 

Dimension:    K. AGENT 

Values:   As  given   above    for    each   agent 

DEP.  G.  COBB  (1-D) 

This    array      holds   the    current   valu 

deposition  on      the    ground   at   the 

the    PERSON. 

Units  :    mg   /    sq.    cm 

Dimension:    N. AGENT 

Values:    As   given   anove    for    each  agent 

MIN-A.CHEM  O-D) 

This    array      provides    the      minimum    significant 
level    cf   air    concentration    for   each   agent. 
Dimension:    H.  AGENT 

Values:   The    minimum  significant   concentration 
for   each   agent 

BIN.  G.CHEM  (1-D) 

This    array      provides    the      minimum    significant 
level    of   ground   deposition    for   each   agent. 
Dimension:    N. AGENT 

Values:      The      minimum    significant      deposition 
for   each   agent 

PC. MASK  O-D) 

This      array      contains    the      probability      of      a 
PERSON  treatina   an      incoming  artillery   attack 
near 
atta 


sun  treatina  an  incoming  artillery  attacK 
rby  as  a  nonpersistent  chemical  agsnt 
acR. 
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Dimension:    N.SIDE 

Values:   The    probability    as   given  above 

PC. MOP?  (1-D) 

This      array      contains    the      probability      of      a 
PERSON   treating   an      incoming   artillery    attack 
nearby   as   a    persistant    chemical  agent   attack. 
Dimension:    N.SIDE 
Values:   The    probability   as   given   above 

PC.OHC  (1-D) 

This  array  contains  the  probability  that  a 
soldier  tnat  has  detect  id  the  presence  of  a 
persistent  agent  hazard  by  any  means  will 
assume  that  the  agent  is  still  falling  toward 
the  ground,  and  as  a  result  will  seek  ever- 
head  ccver. 
Dimension:  N.SIDE 
Values:    The    probability   as    given    above 

T.CHEHCUR8 

This  variable  serves  as  a  counter  that  keeps 
track  of  the  time  at  which  the  last  action- 
performed  or  scheduled  to  be  performed  by  the 
PERSON   was   completed. 

T.  CUR RENT 

This   variable  gives   the  current   simulation 
time  within  the  main  combat  model  calling  the 
chemical  effects  routines. 
Value:  The  time  as  given  above 

TL 


This      variable      gives         the      simulation      time 
within   the   main      combat    model   at    the      time    of 
the    last   iteration. 
Value:   The  time   as   given   above 

UPTR  (1-D) 

This    array   is      used  as    a    convenience      to   call 

for   a    uniform    (0,1)    random    number. 

Dimension:    3 

Values: 

1    -    2     (the   uniform   distribution) 

2-0    (the   first   parameter) 

3-1     (the   second'  parameter) 
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RECURSIVE   VARIABLES 


REAL 


RDTIME 


This  variable  is  used  to  store  the  earliest 
round  impact  time  stored  in  the  array  A. ROUND 
( 1st  dimension)  . 

01  ;  U2 

These  variables  are  used  to  store  a  random 
uniform    (0,1)    random   number. 

ERIEF    EXPLANATION    OF    CODE 

LINE   3 

Call  tc  the  routine  UPDATE,  which  initializes 
certain,  temporary  variables,  assigns  the 
d-pcs^tion  of  a  a  c  h  chemical  a  ^  — r t  at  ■** h ^ 
location  of  the  PERSON  to  the  arrays 
DEP.G.CLD,  DEP.G.CURR,  DEP.A.OLD         and 

DEP.A.CURR,  and  checks  to  see  if  any  changes 
it:  protection  category  or  individual  protec- 
tion have  been  ordered  during  the  previous 
DELT    seconds. 


LINE  4 


Initializes    T.CHEMCURR      to    equal   the 
the    last    CHEM.  CHECK     (time    TL)  . 


tine  of 


LINES    5     -    14 


LINE    9 


This    section      separates  out      several  possible 

situations   that   the  PERSON    concerned  might    be 

involved   in,    which   are    stored   in   the  variable 
CHSMSIT. 


If  the  PERSON  is  moving,  T.OHC  is  set  to  zero 
because  he  cannot  have  temporary  overhead 
cover    while    moving. 


LINES    14    -     16 


If  the  PERSON  is  in  CHEMSIT  2,  all  futher 
routine  calls  will  be  handled  separately  by 
routine  CROSSING. 
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LINES    13    -    25 


Checks  to    see    if  the    PERSON 
nated   at   seine   previous    time 

a  iiU.  u^o         tJi.til^         ClcpuS 

greats:      than    MIN.G.CHSM, 
marked   as      contaminated   by 
of    1     to  CONTAMINATED    and    a 
tion      T.CONTAM      based      on 


has   been   co nta  nd - 

If    he    has   net, 

on      DEP.G.CURH      is 

then  he  will  be 
assigning  a  value 
time  of  contamina- 
he      ratio      of      the 


M  IN.  G.  CHEM 

level . 


level    to      the   current      deposition 


LINES    28,    35 


If  th 
t  ia  1 1 

time 

enoug 

T.CUR 

r  cund 

Line 

RDTIM 

queue 


r-\c 


e  PERSON  regarded  the  attacK  as  pcten- 
y  chemical,  T.CHEMCURR  is  assigned  the 
cf      the    first    round    that      iuiDacted    close 


h  to  react  to. 


RDTIME  wis  first  set  at 


SENT,  the  latest  possible  time  that  a 
possibly  could  have  landed  during  DELT. 
35   insures   that  the   final   value  of 

E  will   be   the  earliest   time   in   the 


LINE  29 


If  the  individual  has   already  detected   the 


fact  that  he  has  been  at 
to  the  hazards  of)  a  che 
program  moves   down  to   the  dose 
sequence  D0SE1. 


exposed 


stacked  by  (or  e: 

smical  agent,  th 

computation 


LINES  30  -  36 


Checks     if  the      PERSON    was 
effects  ellipse    cf   any      roun 
DELT      seconds.         The      time    o 
rounds     close      enough    to      ha 
PERSON     concerned      is      stcre 
dimension    cf    A. BOUND,    while 
length  of   the   round   queue, 
sion      of    A. ROUND      has      a       (0 
whether  or  net    any  of    those 
chemical   -   if    so,    CH2MSIT    is 


in  t 
d   du 


he 
rin 


ve 

d  i 
SDPT 
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were 
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LINES    30    -    32 


If  the  individual  was  not  attacked,  moves  to 
the  label  DETECT. CHEM  to  see  if  detection 
will    occur. 


LINES    37   -    40 


If  a  uniform  (0,1)  random  number  is  less  than 
PC. MASK,  the  PERSON  has  regarded  the  attack 
as  conventional.  The   routine   will      then  go 

directly  to  the  detection  sequence  (label 
DETECT. CHEM)   . 
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LINES  42  -  44 


Checks  to  see  if  the  PERSON  is  in  C?  =  1 .  If 
he  is,  no  reaction  is  necessary.  The  PERSON 
w iX  have  detected  the  event  with  "^.CHEMDS171 
set~egual  to  "T.CHEMCUER,  The  next  step  will 
be  to  go  to  the  label  DOS  ECO?!?,  where  the 
routine  DOSE1  is  called. 


LINES  45  -  50 


If  the  PERSON  was  not  CP  =  1 ,  the  routine 
checks  to  see  if  his  mask  is  on.  If  net, 
MASKING  is  called.  T.MASK  is  set  to 
T.CHEtfCURR.  If  MASK  was  set  to  1  during  the 
UDdate  routine,  T.MASK  has  been  set  previ- 
ously. T.CHEMCORR  is  set  equal  to  r.MASK  in 
either  case. 


LINES    56    -    60 


If   a    uniform     (0,1)    random   number   is    less   than 

P  C  •  M  0  P  E  z h  e  n  the  p  e r  s  o n  w  i 1  have  d  e  t e  c  t e  d 
the  presence  of  cheini  cal  'agent .  f.CHEMDET  is 
set  egual  to  T.CHEMCURR.  The  routine  next 
calls  for  the  appropriate  protective  measures 
based  on  this  'detection  by  caliina  the 
routines   OHC,    DECON,    and   MOPP. 


LINE   54 


If  the  PERSON  had  decided  not  to  mask  and/or 
treat  the  attack  as  a  cersistent  agent 
attack,  the  routine  will  proceed  to  thp  label 
"DETECT.  CHEM". 


LINES    61    -    6  2 


The  routine  DETECTION  is  called  to  see  if  the 
PERSON  will  detect  the  presence  of  a  chemical 
agent  from  signs  or  from  proximity  to  others 
who  have  detected  (or  siisoected  and  thus 
reacted   to)     the   chemical    hazard. 


LINE   6  3 


The   routine    DOSE1    is      called   to  calculate    the 
total    dose   received  during   the   period    DELT. 


LINE  64 


The  routine  CHEMCAS. EFFECTS  is  called.  This 
routine  takes  the  accumulated  dose  and  deter- 
mines if,  based  on  that  dose,  impairment, 
incapacitation,  or  death  could  have  occurred 
to   that  person    during    DELT. 
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CODE 


1  BOUTIHE    CHEM.CHECK 

2  DEFINE    U1-U2,    RDTIME    AS    0-DI  MEN  SIONAL ,    REAL    VARIABLES 

3  CALL    UPDATE 

4  LET    T.CHEMCURB    =   TL 

5  IF     (X. CURRENT  (SCLDIEB)     IS    EQUAL    TO    OLDX (SOLDIER) )     AND 

6  (Y. CURRENT  (SCLDIEB)      IS    EQUAL    TO    OLDY  (SOLDIER)  ) 

7  GC    TO    DIRECT 

8  REGARDLESS    LET    CHSMSIT    =    3 

9  LET    T.OHC  (SOLDIER)      =    0 

10  FOR    J    =     1    TC    N.  AGENT.    DO 

11  IF    DE  P.  A.  CORE  (J)      IS    GE    MI  N.  A  .CHEM  (J)  ,     GO    TO    DIRECT 

12  REGARDLESS    IP    DEF  .G.  COBR  ( J)      IS    LT    MIN . G. CHEM  (J)  ,    GO    TO    DIRECT 

13  REGAPDLESS    LCCP 

14  LET    CHEMSIT    =    2 

15  CALL    CROSSING 

16  RETURN 

17  'DIRECT'    PRINT       1    LINE    THUS 
LABEL    DIRECT    REACHED    IN   CHEM.CHECK 

13  IF    CONTAMINATED  (SOLDIER)     IS    NOT    EQUAL    TO     1 

19  FCR    J    =    1    TC    N.  AGENT.     CO 

20  IF    DEP.G.CURR  (J)     I  S    GE    MI  N.  G.  CHEM  (J ) 

21  LET    CONTAMINATED  (SOLDIER)     =     1 

22  LET    T.CCNTAM(SQLDISS)     = 

23  (     (MIN.  6.  CHEM  (J)  /DEP.G.CURR  (J)  )  *DELT    )     ♦    TL 

24  PEGARDLESS    LOO? 

25  REGARDLESS 

2o  LIST    CHEHDEI  (SOLDIER)  .     RDETR  {SO  LDIE8)  ,    CONT  AMI  N  AT  ED  (SOLDIER)  , 

27  T.  C  C  NT  SM  (SOLDIER) 

28  LET    RDTIME    =    I. CURRENT 


29  IF    CHEMDET  (SCLDIEB)      IS    NOT    EQUAL    TO    0-    GO    TO    DOSECOMP 

30  OTHEEHISE    IlFBDETB  (SCLDIEB)     IS     EQUAL    TO    0 

PDFTR  (SOLD: 
EQUAL    TO     1, 
HE    =   M  IN .  F  ( 


31  LET    CHEMSIT    =   0 

32  GO    TO    DETECT. CHEM 

33  OTHERWISE    FOR    K    =    1    TO     PDFTR  (SOLDIER)  ,    DO 
3a  IF    A.  BOUND  (K,2)      IS    EQUAL    TO     1,     LET    CHEMSIT    =     1 

35  REGARDLESS    LET    RDTIME    =    MIN. Ft    RDTIME,     A.ROUND(K,1)     ) 

36  LOGF 

37  LET    '11     =     DISTFIfif    UP'T,R(*)    ) 

38  LIST    'J1,     FC.  MASK  (SIDE) 

39  IF    U1    IS    GT    FC. MASK  (SIDE) 

UO  GO    TO    DETECT. CHEM  '  'SOLDIER    WILL    NOT    REACT 

U1  OTHERWISE    LET    T.CHEMCURB    =    RDTIME 

a2  IF    CP(SOLDIEE)     IS    EQUAL    TO    1 

43  LET    T.  CHEMDET  (SOLDIER)     =    T.CHEMCURR 

44  GO    TO     DCSECOMP  "IN    VEHICLE    WITH    OVERPRESSURE 

45  OTHERWISE    IF    N ASK(S OLD  IE B)    IS    MOT    EQUAL    TO     1        ''NOT    ALREADY    MASKED 

46  CALL    MASKING 

47  LET    T.CHEMCURR   =    T.  A  A  SK  (SOLD  IER) 

48  REGARDLESS    IF     (TL    IS    LE    1 .  MASK  (  SOLDIER)  )      AND     (T.  MASK  (SOLDIER) 

49  IS    LE    T.CUBSEND 

50  LET    T.CHEMCURR    =     T.  MA  SK  (SOLD  IER) 

51  REGARDLESS    LET    U2    =    DISTBIE(    UPTR  (*)     ) 

52  LIST    02.     EC.  MCFP  (SIDE) 

53  IF    02    IS    GT    FC. MOPP  ( SIDE ) 

54  GC    TO    DETECT. CHEM  ''WILL    NOT    TREAT    AS    PERSISTANT    CHEM    ATTACK 

55  OTHERWISE 

56  'REACT'  LET  T .  CHEMDET  (SOLDIEB)  =  T.CHEMCURB 

57  CALL  OKC  GIVEN  FC.OHC(SIDE) 

58  CALL  DECCN 

59  CALL  MOPF 

60  GO  TO  DOSECCMF 

6  1       'DETECT. CHEM'     PRINT       1     LINE    THUS 
LABEL    DETECT.  CHEK    P.EACEED    IN    CHEM.CHECK 

62  PEBFORM    DETECTION 

63  'DOSECOMP'     CALL    CCSE1 

64  CALL    CHEMCAS. EFFECTS 

65  BETOBN 

66  END  "OF    ROUTINE    CHEM.CHECK 
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2.       The    Routine    UPDATE 


tarcose 

1.  Initializes  certain  global  variables  to 
the  correct  values  for  the  PERSON  being 
examined,  sach  as  DEP.G.OLD,  DSP. A. OLD, 
OLE. DOSE,     and   OLDCP. 

2.  Gets  the  current  ground  deposition  and  air 
concentrations.      If   the   deposition   is   less 


than  that    encountered   previously,    computes 
the     current      contamination   level      on      the 


3.  Updates  CHEMDST,  the  attribute  that  gives 
the   detection   status    of    the    PERSON. 

4.  Schedules  changes  in  individual  and 
collective  protection  (CP,  OHC,  MASK,  and 
PF.CHEM)  ordered  by  the  main  combat 
si  mulation. 

ROUTINES    CALLED    3Y    UPDATE 

DISTRIS 
MASKING 

NUSSEII 

SETS 

CREW  (1-D) 

IEHFOSUR1    ATTRIBUTES  INTEGER 

CfiEHDET 

This   attribute   shows   if   the   PERSON   has 
detected  the   presence  of  a   persistent  chem- 
ical  aaent    hazard   as    of   the    previous 
iteration  of  CHEM. CHECK. 
Values: 

0  -    indicates   no   detection 

1  -    indicates   detection 


This    attribute    indicates    the    current    level   of 
collective  protection    afforded   the    PERSON 
Values: 

1  -    A   vehicle   with      an    operating   ovsrtressure 

system 

2  -    A   vehicle   without    an    overpressure    system 

3  -    A    fcunfcer    or   building 

4  -    A      foxhole,         with   or      without      temporary 

overhead   cover 

5  -    No  protection    (the   PERSON    is    in   the    open) 
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MASK 


NAME 


This      attribute   indicates      if     the    PERSON     is 
waaring  the    chemical   protective  mask:. 
Value: 

0  -    if  the   mask   is  not    being   worn     (off) 

1  -    if  the   mask    is    being    worn    (on) 


This    attribute      consists    of      an   index      number 
used    tc  identify  a   particular    PERSON. 
Value:    As   given    above 


VEH.  NO 


This    attribute      consists    of    the      index    number 
used    to  identify   the      VEHICLE   that    the    PERSON 
is   on . 
Value  : 

0    -    Ths   PERSON    is    net    on    a    vehicle. 
NUHBES  (VEHICLE)  that       the  PERSON       is       on, 

otherwise. 


VEH.  SYS. TYPE 


This    attribute,      along    with    VEH. wpn .TYPE , 
used    to  identify   a   particular    vehicle   type. 
Value:    As   aiven   above 


VEH.  WPN.  TYPE 


This    attribute,      along    with    VEH. SYS. TYPE ,      is 
used    tc  identify  a    oarticular    vehicle   type. 
Value:    As    given    above 


TEMPORARY    ATTRIBUTES 


REAL 


T.CHEMDET 


T.C? 


This  attribute  stores  the  time  at  which  the 
PERSON  detected  the  presence  of  a  persistent 
chemical   agent    hazard. 


This    attribute    provides    the    time    at    which   the 
PERSON  assumed      his  current    level      of   collec- 
tive   protection. 
Value:    The   time   as   given    above 


T.HASK 
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This    attribute      stores   the    time  at      *hich   the 
PERSON   finished   donning    his    protective    mask. 
Value:   The  time   as   given   above 


CHC 


This 
PZRSO 
t  ive 
3   dur 
time 
in  CP 
see    i 
Value 
0   -    i 


attribute  provides  the  time  at  which  the 
N  assumed  his  current  level  of  collsc- 
Drotection,  if  he  went  into  CP  1,  2,  or 
ir.g  this  iteration;  otherwise,  it  is  the 
-hat  he  cr sated  temporary  overhead  cover 
4  cr  5 .  It  is  also  used  as  a  check  to 
f  temporary   overhead   cover  exists. 


f     no      overneaa      cover 
PERSON    is    in    C?    1 ,         2, 
automatically    exists) 
The    time   as      given   aoove,      if 

c  JC3  S  "f"  S  . 


exists 
or    3 , 


(or      the 

where   it 


overhead    cover 


X. CURRENT 


Tms    attribute    gives   the 
location   of    the    PERSON   a- 
tion    time,    T. CURRENT. 
Value:    As  given   above 


C(-  Ji.   ...  ...  j.i'-t  i,  -r       j  i. 


Y.  CUR  RENT 


This    attribute    gives   the      I    coordinate   of   the 
a. oca to.cn   or    tr.  e    PERSON    at   txie   cur r en ■ 
tion    time,    T. CURRENT. 
Value:    As    given    above 


3 .".  mu  la  ~ 


GIOEAL     VARIABLES 


INTEGER 


N.  AGENT 


variable    gives      the      maximum    number     of 
ill    be  used   in   a    given    scenario. 


This 

agents  that    w 

Value:    As   given   above 


CLDCP 


SIDE 


This    variable      gives    the      value   for      the    most 
recent      collective   protection     cateaory      that 
the    PERSON  was    in,        if    he    changed    categories 
during  DELT. 
Value:    As   given   above 


This    variable   is      used    to   store  the      value   of 
the   side   the    PERSON   is      on.      If  the    attribute 
COLOR    is    used,     SIDE    =    COLOR  (PERSON)     +    1 
Value:    COLOR  (PERSON)     ♦    1 
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SCLDIE5 

This    variable      is    used    :o      conveniently    refer 
to   the   memory   location    of    the    PERSON    which   is 
currently    being    checked    in    the   model „ 
Value:    SOLDIER~=    PERSPTR  (    NAME  (PERSON)     ) 

VEH.  PTR  (1-D) 

This  array  is  used  to  store  the  pointer  to 
the  memory  location  where  the  temporary 
entity   VEHICLE   and   its   attributes    are  stcrsd. 

GLCEAL    VARIAELES  REAL 

AG. DECAY 

This    arrav      provides   the      amount    of      decay   of 
each      agent    due      to      weathering     that    can      be 
expect=a   to    occur    in   the   interval    DSLT. 
D lie  n  sion  s:    N . A  SENT 

Value:    As    given   above,    for    each  agent. 

AGA.CUMDOSE  (1-D) 

This    array      holds    the      accumulated    IV      dosage 
fcr   each   agent. 
Dimension:    N. AGENT. 

Value:   The   tJosaoe    in    mcr   accumulated    up   to   the 
current    time 

CHANGE. ORDER  (2-D) 

This  array  is  used  to  order  changes  in  chem- 
ical protection  external  to  the  effects 
model.  The  array  can  be  accessed  by  anv 
routine  by  the  name  of  each  PERSON,  and  the 
changes  in  protection  are  ordered  by  changing 
the  array  values  (they  are  initialized  at  -1 
by  the  driver  proaram)  . 
Dimensions:  N.  PERSON  by  10 
Value  : 

1st    dimension:    The    name   of    the    PERSON 
2nd    dimension: 

1  -    Enter    1      if    you      want    the      PERSON   to 

ma  sk 

2  -Enter      the     value      of        the      new     CP 

category  if  you  want  the  PERSON  to 
change  his  collective  protection 
(values    1    -    5) 

3  -    Enter    1      if   ycu      want   the      PERSON   to 

create   temporary    overhead   cover 

4  -    Enter      the   value      of    the      protection 

factor  for  a  new  item  of  clothing 
or  gear  to  be  put  on  over  body  area 
1 

5  -    Same   as  above    for    body   area    2 

6  -    Same   as  above    for    body   area    3 

7  -    Same   as    above    for    body  area    4 
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8  -  Same  as  above  for  body  area  5 

9  -  Same  as  above  for  body  area  6 

10  -  Same  as  above  for  body  area  7 


D.PF.LEAK 


:3-d) 


This  array  provides  the  probability  distribu- 
tion for  determining  the  amount  of  leakage  to 
liquid   agents      found    in    the    items      of    protec- 


ts 


c  a  ven 


body 


ive   clothing   that   cover 
areas . 

Dimensions:  7  (the  number  of  body  ar;as)  by  3 
V  ai  u  e  s  : 

1  -    The  distribution    type 

2  -    The   first    parameter   of    the   distribution 

3  -    The  second    parameter    of    the   distribution 


DEP.  A.CURR 


(1-D) 


This    array      holds    the    current    values      for   the 
concentration   of      agent  (s)       in    the    air      (at  a 


height   of    2      meters)       at    tne   iocatio 
PERSON. 

U  ni  t  s :    acj    /    c  ub  i 

Dimension:    3.  AGENT 

Values:    As  given   above    for    each   agen 


meters)       ax 

mate  r 


or   the 


DEF.  A.  OLD 


(1-D) 


This    array      holds    the    most    recent      values    for 

the    concentration    of    aqent(s)       in    the    air    (at 

a    heignt    of    2    meters)       at    the   location    of    the 

PERSON. 

Units:    nig    /    cubic    meter 

Dimension:    N.  AGENT 

Values:    As  given   above    for- each  agent 


DEP.  G.  CURR 


(1-D) 


This    array      holds   the    current    values      for   the 

deposition   on      the   grcund    at   the      location   of 

the    PERSON. 

Units :    mg/  sq.    cm 

Dimension:    N. AGENT 

Values:    As   given   above    for    each  aaent 


DEP.  G.  OLD 


(1-D) 


This    array      holds   the    most    recent      values   for 

the    deposition   on    the      ground   at   the    location 

of  the   PERSON. 

Units:    mg/   sq.    cm 

Dimension:    N. AGENT 

Values:   As  given   above    for    each  agent 


DT.PF 


(4-D) 
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This    arrav   holds   the    probability   distribution 

used    tc  de-ermine   the    time      required   to    don   a 

given    item      of    chemical      protective   clothing, 

ror    each    body   area. 

Dimensions:    N.SIDE   by    3 

Values: 

1st  dimension:  The  side  cf  the  PERSON 

2nd  dimension: 

1  -   The    distribution    type 

2  -   The    first   parameter  of  the    distribu- 

tion 

3  -   The    second   parameter      of    the   distri- 

bution 

OLD.  DOSE  (1-D) 

This    array      is    used  to      store   the      values   for 
the      accumulated      dosage      as   cf      end      cf      the 
previous    iteration. 
Dimension:    N.  AGENT 
Value:    As   given    above 

PC. PF.  LEAK  (2-D) 

This      array    gives      the      probability   that      the 
item    cf      full   chemical    protection      covering   a 
given      body    area      will    leak      with    respect      to 
liquid   agents. 
Dimension:    N.SIDE    by    7 
Values: 

1st    dimension:    The   side   that    the    PERSON    is    on 
2nd    dimension:    The    probability   as    given    abcve 
for   the    body    d5ia    1    thru  7 

PFA.CHSM  (1-D) 

This  array  provides  the  current  protection 
factor  for  each  of  the  seven  body  areas  of 
the      PERSON. Implicitly ,  this      array        also 

defines  the    current  protective    (MOPP)    level. 

P FA.  LEAK  (1-D) 

This      array    provides      the    percentage      leakage 
with    respect    to   liquid    agents    of   tne    chemical 
protective  c lot  hi n a   on    each    of   the    seven   body 
areas    cf    the    PERSON. 
Dimension:    7 
Values : 

0   -    If  the  item   does   not    leak 
A   fraction   between   0      and    1    if   the      item   dees 
leak 

T.CHEMCURR 

This  variable  serves  as  a  counter  that  keeps 
track  cf  the  time  at  which  the  last  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON   was   completed. 
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T.  CO R RENT 

This      variable    gives      the   current      simulation 
time    within    the   main   combat    model   calling   the 
chemical    effects   routines. 
Value:   The  time   as   given    above 

TA.PF.CHEM  (1-D) 

This  array  provides  the  time  -hat  the  curren* 
level  of  individual  chemical  protection  was 
denned,  for  each  body  area.  The  pointer  to 
this  array  is  stored  in  the  attribute 
T.PF. CHEM. 

TL 

This   variable   gives    the   simulation   time 
withir  the  main   combat  model  at  the   time  of 
the  last  iteration. 
Value:  The  time  as  given  above 

UPTR  (1-D) 

This  array  is  used  as  a  convenience  to  call 
for   a    uniform    (0,1)    random    number. 

Dimension:  3 
V  ai  u9s* 

•1-2     (the  uniform   distribution) 

t.    —    o     (tue  i  us*    parameter) 

3   -    1     (the  second* parameter) 

RECURSIVE    VARIABLES  INTEGER 

AG 

This  variable   serves  to   pass  the   number  of 

the  agent  concerned  to   another  rouitne  as  an 

argument. 

Value:        AG    =      iteration      counter    j       (current 

agent    type) 

RECURSIVE    VARIABLES  REAL 

T.PF.D  (1-D) 

This    variable   is   used    to      store   the    values  of 
the    time    it    takes   to   don    each   item    of   protec- 
tive   clothing    (for   each   body   area)  ,      as    drawn 
from    the   distribution    DT.PF. 
Dimension:    7 
Values:    As  drawn    from    DT.PF 
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This      variable      is      used   to      store      a      random 
uniform    (0,1)    random   number. 


EEIEE    EXPLANATION    OF    CODE 

LINE   7 

The  variable  T.CHEMCURR  is  initialized  at  TL 
in  order  to  schedule  changes  in  chemical 
protection   later   in  the   routine. 

LINE   8 


The      variable      OLDC? 

is      initialized      at 

the 

current     CP    category 

for      this   iteration 

of 

CHEH. CHEK. 

LINES    10    -    12 


The  old  accumulated  dosage  values  are  stored. 
in  ths  array  OLD.  DOSE,  and  the  old  ground  and 
air  deposition  values  are  stored  in  the 
global  arrays    DEE.  G.  OLD   and    DSP.  A.  OLD. 


LINES    14    -    16 


T'ne  1  -""c^* 1,:  on  a-4-  ■"l"-5  current  "'ocat^on  c  ^  ^  h  ^ 
PERSON  is  set  at  the  current  concentration 
(at  z=0  meters  for  ground  and  z=2  meters  for 
air)  within  the  grid  drawn  by  NJSSS  II  (or  an 
■equivalent  model)  .  In  order  to  develop  the 
coda-  a  driver  program  called  NUSSE  Ii  was 
written  to  simulate  the  output  that  light  be 
obtained  from  a  deposition  S" transport  model. 
This  routine  has  been  included  in  the  section 
en   STAR  implementation. 


LINE    17 


It  is  possible  for  the  current  NOSSE  II  value 
to  be  less  than  the  previous  value  drawn  at 
the  last  update  if  the  individual  is 
departing  an  area  of  contamination.  3ecause 
the  true  value  for  the  individual,  rather 
than  the  terrain  he  is  standing  upon.  will 
continue  to  be  the  amount  of  agent  with  which 
he  was  previously  contaminated,  the  model 
sets  the        actual  outside  deposition 

DEP.G  .CURRM)  for  the  ith  aaent  at  the 
maximum  of  the  current  NUSSE  II  deposition  or 
the  previous  level  DEP .G.OLD  (j) ,  adjusted  for 
a   decay   factor    AG. DECAY  (j) . 
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LINES    19    -    22 


The    routine    updates  the   attribute    CHEM.DET    by 

assigning  it  a  value  of  one  if  the  individual 
had  a  time  of  detection  assigned  during  the 
last    iteration. 


LINES    23    -    7C 


The  remaining  lines  schedule  protective 
status  changes  ordered  externally  to  the 
module.  This  is  accomplished  by'  changing 
values  within  the  array  CHANGE. ORDER.  The 
routine  first  checks  to  make  sure  that  the 
ordered  change  has  not  been  previously  imple- 
mented.   If  it   had   been,    no  changes  "are 


necessary 
LINES  23    -  27 


If  the  first   variable, _  CHANGS.  ORDER  (1)   was 


3 -r"    a-      one, 


the  individual  was  directed  to 
mask.  As  a  result,  the  HA5KING  routine  is 
called,  th a  time  of  masking  T.MASK  is 
assigned  a  new  value,  and  T.CHEHCURH  updated 
to  allow  for  scheduling  of  subsequent  actions 
in   UPDATE    (i  f   any)  . 


LINES    28    -    36 


Changes  in  collective  protection  category  are 
considered  next.  The  old  CP  value  is  scored 
in  the  variable  OLDCP,  the  new  CP  is  given 
the  value  in  CHANGE.  ORDER,  the  time  is  set  to 
T.CHEMCURR,  and  CHANGE. ORDER  is  reinitialized 
to  -1.  If  the  change  is  to  C?  categories  1, 
2,  or  3,  the  overhead  cover  attribute  (OHC) 
is  adjusted    as    well. 

LINES    37    -    41 

The  overhead  cover  can  be  changed  separately 
from  the  CP  when  temporary  overhead  prctec1 
tion  is  ordered. 

LINES  42  -  63 

Changes  the  individual  protection  for  any  or 
all  of  the  seven  body  areas  ordered  through 
the  new  level  of  protection  specified  in  the 
CHANGE. ORDER  subscripted  variable.  Eor  each 
body  area,  a  time  to  don  the  item  of  clothing 
is  drawn  from  the  array  DT.PE  and  assigned  to 
the  recursive  variaole  T.PF.D.  The  time  at 
which  the  item  was  donned  is  assigned 
T.CHEMCURR       +       T.PF.D,  and      T.CHEMCURR      is 

updated.      Each    body   area    is    checked    to   see   if 
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1  ROUTINE    TO    UPDATE         "CHZM.CEECK 

2  PRINT       1     LINE    THUS 
ROUTINE     UPDATE    CALLED 

3  DEFINE    T.tF.C    AS    A    REAL,     1-DIME NSIONAL    VARIABLE 

4  DEFINE    AG    AS    AH    INTEGER,     0-DIME NSIONAL   VARIABLE 

5  RESERVE    T.PF.DC*)     AS    7 

6  RESERVE    OLD.DCSE(*)      AS    N.  AGENT  ''A    GLOBAL    VARIABLE    TO    STORE    OLD 

7  LET    T.CHEMCURR    =   TL  "DOSAGE    INFORMATION 

8  LET    CLDCP    =    CP  (SOLDIER) 

9  FOR    J=1     TO    N. AGENT,     DO 

10  LET    DEE.  G. CLE  (J)     =    DEF.  G.  CUR  R  (J) 

11  LET    DEP.A.CLD(J)      =    DEP.A.CURR/J 

12  LET    OLD.DCSE(J)     =    AG  A  ,  CUMDOS  E  (J] 

13  LET    AG    =    J 

14  CALL    N'USSEIT    GIVEN    T.  CURRENT,    X  .CURRE  NT  (SOLDIER) 


G.OLD  (J)  *AG. DECAY  (J)  ) 


15  Y. CURRENT  (SOLDIER)   ,    AND    AG 

16  YIELDING    EEP.  G  .CU  R  R  (J)     AND    DEP  .  A.  CURR  (J) 

17  LET    DEE.G.CURR(J)     =    M AX. F (DE P. G . CURS ( J) ,     DEP, 

18  LOOP 

19  I?    CHE3DET  (3CLDIER)     =    0  ''UPDATE   CHEMICAL    DETECTION    STATUS 

20  THEN     IF    I. CHEMDST  (SOLDIER)     IS    NOT    EQUAL    TO    0 

21  LET    CHEMDET(SOLDIEH)    =    1 

22  REGARDLESS  • 'IMPLEMENT    «OPP    CHANGES    IF    ANY 

23  IF    CHANGE. ORDER {    HAME(SOIDIER)  ,  1    )     =     1       ''ORDERED   TO    MASK 

24  THE!!     IF    MASK  (SOLDIER)     IS    NOT     EQUAL    TO     1 

25  CALL    MASKING 

26  LET    T.CHEMCURR   =    I.  H  ASK  (SOLDIER) 

27  LET    CHANGE. ORDER (    N  AM  E  (SOLDI  ER)  .  1 )    =    -1 

23  REGAFDLESS    IF    C  H  AN  G  E  .OR  D  ER  (    NAM  E  (SOLDIER)  ,  2)     IS    GT    0 

29  THEN     IF    CP  (SOLDIER*     IS    N2    CH  ANGE.  ORDER  (    N  AM  E  (SOLDIER)  ,  2) 

30  LET    OLECE=    CP(SOLDIER)  "ORDERED    TO    CHANGE    CP 

31  LET    CP  (SOLDIER)     =    CH A NGE. CRD ER (    HAHE(SOLDIEB)  ,  2) 

32  LET    T.C?  (SCLCIER)     =    T.CHEMCURR 

33  LET    CHANGE.  CFDER  (    N  AM  E  (SOLDI  ER)  .  2)     =    -1 

34  IF   CP     EQUALS    4    OR    CP    EQUALS    5,     LET    I.  OHC  (SOLDIER)     =    0 

35  ELSE    LET    T  .0  HC  (SOL  EiER  )    =    T.  CP  (SOLD  ISH) 

36  REGARDLESS 

37  REGARDLESS    IF    CHANGE .0 RDEF  (    NAM E (SOLDIER)   ,  3)     =    1       ''CREATE    OHC 
33  THEN    IF    T .  CHC  (SOLDIER)     IS    EQUAL    TO    0     AMD    C?  (SOLDIER)     IS    GT    3 

39  LET    T.  CHC  (SOLDIER)    =    T.CHEMCURR 

40  LET    CHANGE. ORDER  (    NAM  E  (SOLDI  ER)  ,  3)     =    -1 

41  REGARDLESS 

42  •  'REMAINING    LINES    ORDER    CHANGES    TO    ?F(1)      THROUGH    PF  (7) 

43  FOR    1=1     TO    7,    DC 

44  LET    J    =    I    +    3 

45  IF    CHANGE. ORDER  (     NA  ME  (SOLDIE  B)  .  J)     IS    GE    0 

46  THEN    IF    EFA.CHEM(I)     IS    NE    CHANGE. OR D ER  (NAME ( SOLDIER)  .J) 

47  LET    T.?F.D(I)      =    DISTRIB(    DT.  P  F  (  VEH.  S  YS  .  TY  PE,  VEH.  WPN  .  TYPE,  I,  *)     ) 

48  LET    TA.PF.CHEM  (I)     =    T.CHEMCURR    ♦•    T.PF.D(I) 

49  LET     PFA.CHEM(I)     =    C HANG E. 0 RDER (    NAME  (SOLDIER)  , J) 


50  IF_  PFA._LEAKjI)__IS    EQUAL    TO    0 

53  THEN    IF    [TlS  '  LeT  P  C.PF\L£  AK  (SIDE,  I) 


i 


51  LET    U    =    DISTRI3(     UPTR  (*) 

52  LIST    0,    PC.  PF. LEAK  (SIDE,  I 

53  THEN    IF    0    IS     LE    PC.PF.LEA.* 

54  LET    PFA.LEAK(I)     =    DISTRIB(    D.PF .  LEAK  (SIDE,  I ,  *)     ) 

55  REGARDLESS 

56  LET    T.CHEMCURR    =    TA  .  PF.  CHEM  (I) 

57  IF     I    =    2    AMD    CH  ANGE .  ORDER  (     NAME  (SOLDIER)  ,  J)     =    1  "MASK    DONNED 

58  CALL  MASKING 

59  LET  T. MASK  (SOLDIER)  =  T A.  PF.  CHEM  (I) 

60  P.EGAFDLESS 

61  LET    CHANGE.  CRDER(    NAME  (SOLDIER)  ,  J)     =    -1 

62  REGARDLESS 

63  LOOP 

64  IF  (CP  (SOLDIER)  IS  GE  3)  AND  (T  .CP  (SOLDIER)  IS  GE  TL)   ''LEFT  VEHICLE 

65  REMOVE  THIS  SOLDIER  FEOB  THE  CREW (  VEH. PTB (VEH. NO (SOLDIER) )  ) 

66  LET  VEH.  NC  (SCLDIER)  =  0 

67  REGARDLESS 

63       "       LIST    T.PF.D,    TA.PF.CHEM,     EFA.CHEM 

69  HETORN 

70  END  "OF    ROUTINE    UPDATE 
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3.      The    Routine    MASKING 
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TEMPORARY    ATTRIBUTES 


INTEGER 


M  A  SK 


This      attribute   indicates      if     the    PERSON 
wearing  the    chemical    protective  mask. 


V  al  u  e  : 

0  -    if   the   mask   is 

1  -    if  the   mask 


not    being   worn 
s    being    worn    (on) 


(off) 


MASKLEAK 


This  attribute  indicates*  the  amcun 
leakage  (if  any)  that  the  mask  will  le 
vapors  and  aerosols.  It  is  multiplied  b 
ouside  concentration  of  aaent  at  -he  PER 
location,  DEP.A.CURR,  to  yield  the  effe 
concentration  of  agent  inside  the  mask. 
value  is  drawn  from  the  distrib 
D.MSKLZAK 
Values: 

0   -    If  the  mask    does   not    leak 
A   fraction   between   0      and    1    if   the      mask   dees 
leak 


ak  to 
v  —  h  <~ 
SON'"! 
c4"  iv  e 
"The 
nt  ion 


NAME 


This  attribute  consists  of  an  index 
used  tc  identify  a  particular  PERSON. 
Value:    As   given   above 


number 


T.MASK 


This    attribute      stores    the    time   at      which    the 
PERSON   finished   donning    his    protective    mask. 
Value:   The  time   as   given   above 
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GLOEAL    VARIAELES  INTEGER 

SIDE 

This    variable   is      used    to   store  the  value   of 

the    side   the    PERSON   is      on-       If   the  attribute 

COLOR    is    used,     SIDE    =    COLOR  (PERSON)  +     1 
Value:    COLOR  (PERSON)     +    1 

SCLDIER 

This    variable      is    used   to      conveniently    refer 
to   the   memory   location    of    the    PERSON    which    is 
currently    being   checked    in    the   model. 
Value:    SOLDIER    =    ?ERSPTR(    NAME  (PERSON)     ) 

GIOEAL    VARIABLES  REAL 

D.MSKLEAK  (2-D) 


This    array   provides   the    probability    distribu 
tion    for   Ihe    leakage   of    the    protective    mask. 


IU- 

.ge  or 
Dimensions:  N.SIDE  by  3 
Values: 

1  -    The  distribution   type 

2  -    The  first    parameter   of   the   distribution 

3  -    The   second    parameter   of   the   distribution 

D.PP    L'SK  f 3- D \ 

This  array  provides  the  probability  distribu- 
tion for  determining  the  amount  of" leakage  to 
liquid  agents  found  in  the  items  of  protec- 
tive clothing  that  cover  the  seven  body 
areas . 

Dimensions:  7  (the  number  of  body  areas)  by  3 
V  al u  e  s  : 

1  -    The  distribution    tvue 

2  -    The   first    parameter'of   the   distribution 

3  -    The  second" parameter    of    the   distribution 

DT.MASK  (2-D) 

This    array   holds   the    probaoility    distribution 

used    to      determine   -he      time   required      to    don 

the    protective    mask. 

Dimensions:     N.SIDE    by    3 

Values: 

1st    dimension:    The  side   of   the   PERSON 

2nd    dimension: 

1  -   The  distribution   type 

2  -    The  first   parameter'of   the   distribution 

3  -    The  second   parameter   of   the  distribution 

PC.MSKLEAK  (1-D) 
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This    array      contains   the      probability    -ha^ 

protective      mask   will      leak      with   rescect 

vapors   and  aerosols. 

Dimension:    N.SIDE 

Values:    The    probability   as    given    above 


PC.PF. LEAK 


(2-D) 


This      array    gives      the      probability   that      the 
item    of      full   chemical    protection   "covering  a 
given     body    area      will    leak      with    respect      to 
liquid   agents. 
Dimension:    N.SIDE    by    7 
Values: 

1st    dimension:    The   side    that   the    PERSON    is    on 
2nd    dimension:    The   probability   as    given    abcve 
for   the    body    area    1    thru    7 


PF.MAX 


(2-D) 


impiicitl / 

ctective 


This    array   provides  the    protection    factor    for 
the    item   that    orovides      fail   chemical    protec- 
tion   fcr   a   given   body    araa. 
array      also       defines    the      maximum 
(full    «OPP)     level. 
Dimensions:    N.SIDE   by    7 
Value  s : 

1st    dimension:    The   si  da    that   the    PERSON    is    on 
2nd    dimension:    The   protection    factor   for   each 
codv  area,    as   explained   abcve 


Pr  A.  CHE*! 


(1-D) 


This  array  provides  the  currant  protection 
factor  for"  each  of  the  seven  body*  areas  of 
the       PERSON. Implicitly ,  this      array        also 

defines  the    current  protective    (HOPP)    level. 


P FA.  LEAK 


(1-D) 


This  array  provides  the  percentage  leakage 
with  respect  tc  liquid  agents  of  the  chemical 
protective  clothing  en  aach  of  the  seven  body 
areas    of   the    PERSON. 


Dimension . 
Values: 

0    -    If  the   item    does    not    leak 
A   fraction   between   0      and    1    if   the 
leak 


item   does 


T.CHEMCURR 


This  variable  serves  as  a  counter  that  keeps 
track  of  the  time  at  which  the  last  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON   was  completed. 


TA.PF. CHEM 


(1-D) 
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This  array  provides  the  time  that  the  currer.- 
level  of  individual  chemical  protection  was 
donned,  for  each  body  area. 

DETB  (1-D) 

This    array  is      used  as    a   convenience      to  call 

for   a    uniform    (0,1)    random   number. 

Dimension:  3 

Values: 

1-2     (the  uniform   distribution) 

2-0    (the  first    parameter) 

3   -    1     (xhe  second    parameter) 

RECURSIVE    VARIABLES  REAL 

T.M.  D 

This  variable  is  used  to  store  the  time  that 
it  takes  to  den  the  protective  mask. 


This   variable  is   used   to   store  a   uniform 
(0,1)  random  number. 

EFIEF  EXPLANATION  OF  THE  CODE 

LINE  4 

The  routine  determines  the  time  it  took  this 
PERSON  to  don  the  mask  bv  drawing  from  the 
global  variable  DT.HASK.  "The  value  drawn  is 
assigned   to    the   temporary    variable    T.H.D. 

LINE  5 

The  attribute  T.MASK,  representing  the  time 
at  which  the  donning  process  was  completed, 
is  set  at  the  current  simulation  time  ror  the 
individual,    T.CHEMCURR,    plus   T.M.D. 


LINES    6-7 


Because  the  mask  also  provides  protection  to 
body  area  2  from  liquid  chemical  agent 
hazards,  the  value  ?FA.CKEM(2)  is  updated  to 
show  that  added  protection,  and  the  time 
TA.PF.CHEM(2)    is   changed    as    well. 
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LINE   9 


The    attribute   MASK   is    sat.   at   one,      indicating 
that    a   protective    mask   is   worn. 


LINE    10 


A  check  is  made  to  see  if  the  mask  had  been 
tagged  as  a  leaker  at  some  earlier  time 
(MASKIEAK   not   equal   to    0)  . 


LINES    11-13 


PC.  MSKLEAK  is  compared  to  a  uniform  (0,1) 
number;  if  PC.8SKLEAK  is  greater  than  or 
equal    to   that    number,    the    mask    will    leak. 


LINE    14 


array 
LINES    16    -    2  1 


The  amount  of  i=aka7e  is  set  by  accessing  the 
D.iis  KLEAK,  and  assigning  the  random  number 
drawn  from  the  distribution  indicated  bv  the 
to   the    attribute    MASKL2AK. 


A  check  is  made  to  see  if  the  mask  will  leak 
with  respect  to  licuid  hazards.  If  the  H3sk 
has  net  previously  "been  tagged,  the  variabla 
PC.  PP. LEAK  (2)  is  compared  to  a  uniform  (0,1) 
random  number.  If  the  mask  will  leak  with 
resDect  to  liquids,  the  value  of  PFA.LEAK(2) 
is   drawn   from   the   distribution    D.PF.LEAK. 


CODE 


••TIME    IT    TAKES    TO    MASK 


1  ROUTINE    FOR    MASKIKG 

2  PRINT       1     LINE    THUS 
ROUTINE    MASKING    CALLED 

3  DEFINE    I.M.D,    U    AS     REAL    VARIABLES 
a  LET    T.H.D    =    DISTEI3(    DT.  MASK  (SIDE,*)     ) 

5  LET    T.  MASK  (SCLDIER)      =    T.CKEMCURfi    +    T.fl.D 

6  LET    1A.PF.CHEM  (2)    =    T.  MASK  (SOLD  IER)  "ADJUSTING    PF    FOR    FACE 

7  LET    PFA.CHEM(2)     =    PF  .MAX  (SIDE,  2  1 

8  LISTT.M.D,    l.MASK(SOLDIEB),    NAME  (  SOLDIER)  ,    PFA.CHEM  (2)  ,  TA.  PF  .CHEM  (2) 

9  LET    MASK  (SOLDIEP)     =     1 

10  IF    MA5KLSAK  (SCLCIER)     IS     EQUAL   TO    0 

11  LET    'J     =    DISTRI3  (     UPTR  (*)     )  '  '  UNIFOR  M  (0 ,  1)      RANDOM    NUMBER 

12  LIST    U,     PC. MSKLEAK(SIDE)  „    „ 

13  THEN     IF    0    IS    LESS    THAN    ?C . MS KLEAK  (SIDE)      ''THEN    THE    MASK    WILL    LEAK 

14  LET    MASKLEAK  (SCLDIZR)     =    DISTRIB(    D.  MS  KLEAK  (SIDE,  *)     ) 

15  REGARDLESS 

16  IF    EFA.LEAK(2)     IS    NOT    EQUAL    TO    0.     RETURN  ■„„«,.- 

17  OTHERWISE    LET    U    =    0IST8IE(    UPTR  (*)     )  ••  UNIFORM  (0,  1)      RANDOM    NUMBER 

18  LIST    U,    PC.  PF. LEAK  (SIDE,  2) 

19  IF    0    IS    LESS    THAN    PC  .PF .  LEAK  (SI  DE ,  2)        "THEN    MASK    WILL    ALLOW    COHTAM. 

20  LET    PFA.LEAK(2)     =    DISIHIB(    D. PF.LEAK (SIDE, 2 ,*)     ) 

21  REGARDLESS 

22  RETURN 

23  END  "'OF    SCDTINE    FOE    MASKING 
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4.       Th«    Routine     DETECTION 
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If    detection"    occurs,      ca 

lis 

the 

routi 

nes 

OHC,    DECQN    and    HOPP. 

ROUTINES    CALLED    BY    DETECTION 


DECON 

a  .n  btt.  1  .1   - 

MCPP 

NAA 

CHC 


LABELS     USED 


EXIT 

OUT 
PROXIMITY 


TEMEORARY    ATTRIBUTES 


INTEGER 


CP 


:iask 


This    attribute    indicates   the   current    level   cf 
collective   protection    afforded  the    PERSON 
V  alu  es : 

1  -    A    vehicle    with      an    operating   overpressure 

system 

2  -    a    vehicle    without    an    overpressure   svstem 

3  -    A    fcunker    or    building 

4  -       A   foxhole,         with      or    without      temporary 

overhead    cover 

5  -    No   protection    (the    PERSON    is    in    the    open) 


This      attribute    indicates      if      the    PERSON 
wearing  the    chemical   protective  mask. 
Value  : 

0  -    if  the  mask   is   not    being   worn    (off) 

1  -    if   the   mask   is   being    worn    (on) 


13 
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T.CHEMDET 


which 


u  iiS 


This    attribute      stores    the    time   at 
PERSON   detected   the   presence      cf    a    osisisieii-c 
chemical   aaent      hazard.        This      detection    iiav 
occurred   due    to    any   of    the   four    possible 


have 


m=ans   cf   detection    (see   the    DETECTION    routine 
discussion  in   Chapter    3    for    more    detail)  . 


WARNING 


automat ically 

en^^aticn     or 


This    attribute   of    an   ALARM    tells    if    the    ALARM 

has    sounded.  The   ALARM      will   aut< 

sound      a   warning      when      the    ccncei 

aaent    in   the    air   at  the   location    of   the    ALARM 

oasses     the    threshold      concentration    set      for 

than        alarm  in        the  global        variable 

AG.  AL. THRESH. 


TEMPORARY    ATTRIBUTES 


REAL 


T.MAS K 


This    attribute      stores    the    time   at      which   the 
PERSON   finished   donning   his    protective    mask. 
Value:    The   time   as  given    above 


X.  ALARM 


This    attribute    gives    the 
location    of    the    ALARM      at 
tion    time,   T. CURRENT. 
Value:    As    given   above 


X    coordinate    of   the 
the    current   siniula- 


Y. ALARM 


Tnis    attribute   gives   the 
location   of    the    ALARM      a* 
tion    time,    T. CURRENT. 
Value:    As   given   above 


x   coordinate   of   the 
the   current   Simula- 


X.  CURRENT 


This    attribute    gives    the 
location   of    the    PERSON   a* 
tion    time,    T. CURRENT. 
Value:    As   given  above 


X    coordinate    of    the 
the   current   simula- 


Y.CJRRENT 


This    attribute    gives    the      X    coordinate   of    the 
location   of    the   PERSON    at   the   current   simula- 
tion   time,    T. CURRENT. 
Value:    As   given   above 
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G10EAL    VARIABLES 


INTEGER 


ALPTR 


(1-D) 


T»  ViT  e      aTT-av         ">  "s     n  *  —  fl     *"  O         s:  r  --,  "^  n     r  Vi  a         r^r'  *)-':-     ¥t 

the      memory      location         where     the    'remoerar^ 
entity  ALARM    and   its   attributes  are    stored. 


CHEHSIT 

Thi 

s    vari 

facing   th 
value      is 

beg 
Val 

0   - 

inning 

ues: 

The   F 

dire 

effa 

1    - 

muni 

The   P 
€lli 

2    - 

may 
The  P 

3    - 

r.c  a 
The 

ther 

net 
has 
chem 

N.  AGENT 

able   indicates   the    current    situ 

e  PERSON   during    this   iteration. 

determined    by      CHEM .CHECK      at 

of    the   iteration   ever  this    PER 

SRSON   is    stationary   and    has    not 

ctly   attacked      by    (in      the    inline 

cts      ellipse    of)         a    chemical 

tion 

ERSON      is   in      the    immediate      sf 

pse    of    a   chemical    agent    munitio 

ds    stationary   or    moving 

ERSON    is    moving    in , an   area    of  _  p 

Ir borne   agent    present 
PERSON   is      moving    in      an    area 
e  is   still  agent    in      the    air    (i 
all      deposited   on   the      ground), 

not      been  directly      attacked 
ica 1   munition 


at  ion 

The 

the 

SON. 

been 

diate 

agent 

fects 

r. .    He 

re  vi  "* 

r  a      *  _r 

w  n.  er  e 

t    has 

and 

by      a 

This  variable  gives  the  maximum  number  of 
agents  that  will  be  used  in  a  given  scenario. 
It  is  used  to  dimension  all  arrays  dependent 
on  the  agent  type,  and  set  the  value  for  ail 
"DO  LOOPS"  that  iterate  over  the  agent  type. 
Value:    As   given   above 


N. ALARM 


This   variable   gives  the   number   of   ALARMS 

created. 

Value:    As   given   above 


N. PERSON 


This   variable  gives   the   number  of   PERSONS 

created. 

Value:    As   given   above 


PERSPTR 


(1-D) 


This  array  is  used  to  store  the  pointer  to 
the  memory  location  where  the  temporary 
entity  PERSON  and  its  attributes  are  stored. 
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SIDE 


This    variable   is      used 
t ha    side   the    PERSON   is 


.0   store   the      value  of 
on.      If  "-he   attribute 


COLOR    is    used,    SIDE   =    COLOR  (PERSON)     +    1 
Value:    COLOR  (PERSON)     +    1 


SCLDIER 


This    variable      is    used   to      conveniently    refer 
to   the   memory    location    of    the    PERSON    which    is 
currently   bema   checked   in    the   model. 
Value:    SOLDI ER~=    PERSPTR  (    NAME  (PERSON)     ) 


GIOEAL    VARIABLES 


REAL 


AL.MAX.DIST 


(1-D) 


This  array  holds  the  maximum  distance  from  a 
PERSON  to  another  PERSON  or  ALARM  over  which 
he  would  hear  the  aiar:a  or  notice  the  reac- 
tion cf  that  other  PEHSON  to  a  chemical 
hazard.  iny  PERSON  or  ALARM  that  has  previ- 
ously detected  the  presence  of  a  chemical 
hazard  will  warn  all  other  PERSONS  within 
this  distance  of  his  position 
Dimension:    N.SIDE 

Value:  Derived  from  normal  line-cf-sight 
conditions  and  the  expected  distance 
that    one   could  hear   the   standard   alarm 


DEP.  A.CURR 


(1-D) 


This  srray  holds  the  current  values 
concentration  cf  aqert(s)  in  the  air  {at  a 
height  of  2  meters)"  at  the  location  or  the 
PERSON.  This      information   is      supplied     by 

NUSSE    II   or    seme   equivalent    model. 
Units:    mg   /    cubic    meter 
Dimension:    N. AGENT 
Values:    As  given    above    for    each   aqent 


DEP.  G.  CORR 


(1-D) 


This    array      holds   the    current   values      for   the 

deposition  on      the   ground   at   the      location   cf 

the      PERSON.       These      values      are   suDDlied     ny 

NUSSE    II   or    some   equivalent    model 

Units:    mg/  sq.    cm 

Dimension:    N.  AGENT 

Values:    As  given   above    for    each   agent 


DT.  DETECT 


(5-D) 


This    array  contains  the    probability    distribu- 
tion   that      is   used      to    determine      the    glimpse 
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probability  cf  detection,  PT.CHEMD2T,  of  a 
persistent  chemical  agent  hazard,  based  on 
noticing  physical  signs,  during  the  interval 
DELT.  If  PT.CHEMDET  is  greater  than  or  equal 
to  a  uniform  (0,1)  random  number,  detection 
will  have  occurred  during  DELT.  Because  the 
variable  PT.  CHEMDET  is  a  probability,  only  a 
uniform  cr  deterministic  distribution  (with 
parameter  (s)  between    0      and    1)         or    a      beta 

distribution    can   be  used. 
Dimensions:     4   by   N.  AGENT    bv    5    by    2    bv    3 
Values: 
1st    dimension:    The   chemical    situation   CHEHSIT 

+    1     (the   +1    is      to    avoid   having    an    index 

cf  z  sro ) 
2nd    dimension:    The   agent    present 
3rd    dimension:         The        collective      protection 

category   CP    (1    thru    5) 
4th    dimension:        The    value      of   the      attribute 

MASK    ♦    1     (mask  off   or    on) 
5th    dimension: 

1  -   The    distribution   type 

2  -    The    first    parameter   of   the    distribu- 

tion 

3  -   The    second   parameter      of    the    distri- 

bution 

HIH.  A.CHEH  (1-D) 

This    array      provides    the      minimum    significant 
level    of   air " concentration    for    each   agent.    If 
the    concentration   is    below   this   value,      it   is 
treated  as  if   there   were    no    agent    Dresen*. 
Dimension:    N. AGENT 

Values:  The  minimum  significant  concentration 
for    each   agent 

MIN.G.CHEM  (1-D) 

This    array      provides    the      minimum    significant 
level    cf   around   deposition    for   each    agent.    If 
the    deposition     is   below      this   value,         it   is 
treated  as  if   there   were    no    agent    present. 
Dimension:    N.  A  GENT 

Values:      The      minimum    significant      deposition 
for    each   agent 

PC.NAA  (1-D) 

This  array  contains  the  probability  that  the 
PERSON,  as  a  result  or  poor  training  or 
panic,  will  inject  himself  with  the  nerve 
agent  antidote  under  circumstances  other  than 
the  appearence  of  nerve  agent  symptoms,  such 
as  detection  of  the  agent  or  the  appearence 
of  symptoms  caused  by  a  cheraicalagent  ether 
than  the  nerve  agent. 
Dimension :  N .SIDE 
Values:   The    probability   as    given    above 

PC.OHC  (1-D) 
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This  arrav  contains  the  probability  that  a 
soldier  that  has  detected  the  presence  of  a 
persistent  agent  hazard  by  any  means  will 
assume  that  the  aaent  is  still  falling  toward 
the  g round ,  and  is  a  result  will  seek  over- 
head cover. 
Dimension:  N.SIDE 
Values:   The    probability   as    given   above 


I.CHEMCURR 


This  variable  serves  as  a  counter  that  keeps 
track  of  the  time  at  which  the  last  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON    was   completed. 


T.  CURRENT 


TL 


This      variable    gives      the    current      simulation 
time    within    the   main   combat    model   calling   the 
chemical    effects   routines. 
Value:    The  time    as   given    aoove 


This      variable      gives        the      simulation      time 
within  the   main      combat   model   at    the      time  of 

the    last   iteration. 

Value:    The   time    as   given    above 


(JFTR 


(1-D) 


This    array   is      used  as    a   convenience 

for    a    uniform     (0,1)    random   number. 

Dimension:    3 

V  al  u  e  s  : 

1    -    2    (the   uniform   distribution) 

2-0    (the   first   parameter) 

3   -    1     (the   s  econd '  parameter) 


to   call 


RECURSIVE    VARIABLES 


INTEGER 


AG 


This    variable   is      used   to    pass    the      number   of 

the    aaent    concerned  as    an   argument    ot   another 

routine. 

Value:        AG    =      The   iteration      counter    j       (the 

agent    concerned) 


NEARBY. DET 


This  variable  is  used  to  store  the  pointer  to 
an  entity  -  PERSON  or  ALARM  -  that  is  checked 
for  proximity  and  detection  status  in  the 
section  of  the    routine    labeled   PROXIMITY. 
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RECURSIVE    VARIABLES  REAL 

ALARM.  DIST 

This  variable  is  used  to  store  the  distance 
to  the  PERSON  or  ALARM  tiia-  is  closest  to  the 
PERSON  and  has  detected  the  presence  cf  a 
persistent  chemical  agent.  If  the  variable  is 
less  than  AL.MAX.DISI  +  1  at  the  end  of  the 
iteration  over  all  PERSONS  and  ALARMS,  then 
the    PERSON  has    detected   the    agent. 

DIST 

This  variable  is  used  to  store  the  distance 
to  the  current  PERSON  or  ALARM  beina  checked 
in  the  iteration   over    all    PERSONS    and   ALARMS. 

PT.CHEMDET 

This  variable  represents  the  probability  of 
detection  during  this  iteration  from  the 
glimpse  detection  model.  It  is  drawn  from  the 
array    CT.  DETECT. 

01;    U2 

These      variables   are      used      to   store      uniform 
(yjf  1)     nanuGui   numbers. 

A    BRIEF    EXPLANATION    OF    CODS: 

LINES    8     -9 

Checks  to  see  if  there  is  any  chemical  agent 
present  in  the  ground  or  in  the  air  at  the 
PERSONS  location.  If  there  is  not  agent 
present,  then  it  is  assumed  that  detection 
due  to  physical  signs  will  not  occur,  and  the 
routine"  moves  down  to  the  ooir.t  where  it 
begins  to  check  for  alarms  or* persons  nearbv 
(label  PROXIMITY)  . 

LINES  17  -  25 

If  there  is  agent  present,  then  PT.CHEMDET  is 
drawn    from    the      array    DT. DETECT.  PT.CHEMDET 

represents  the  probability  of  detection 
during  this  iteration  from  the  glimpse  detec- 
tion model.  It  is  compared  to  a  uniform 
(0,1)  random  number  to  determine  if  detection 
occurred  during  the  last  DELT  seconds.  If 
PT.CHEMDET  is  greater  than  or  equal  to  the 
random  number,  T.CHSMDET  is  assianed  the 
value    shown    if    previously   equal  to    zero.         If 
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T.CHEMDET 
value    due 


had      been 
to    another 


earliest   time    (lines   23-24) 


previously      assigned 
gent,         it   is   given    tl 


a 
he 


LINES  30  -  56 


the  PERSON   will   detect   the 
agent   based   on  a   chemical 

person  nearby 


Determnes      n 

presence     of    an 

agent    alarm      or   bv~   noticing 

who    has  detected   the    agent.'    The    rouitne   will 

examine  every      ALARM    and      every   ether      PERSON 

for    proximity   and   detection    status. 


LINES    31 ;    46 

Assigns  th  pointer  to  another  PERSON  or  ALARM 
to  the  temporary  variable  NEARBY. DET. 

LINES  33  -  36:  47  -  50 


Commutes   the   straight -line 


distance 


LINES  37  -  42 


to  see   if  NEARBY. DET   is  within   the 


Checks 

maximum  alarm   distance, 
NEARBY. DET    has       det 
assians  ALARM. DIST 

NEAR  BY. DET. 


AL.MAX. DIST, 
usl 
distance 


uetected  previously 


and  if 
If  so, 


tne 


LINES  51  -  54 


Checks  to  see  if  NEARBY. D^T  is  within  the 
maximum  alarm  distance,  AL.MAX. DIST,  and  if 
NEARBY. DET  (an  alarm)  has  sounded  the 
warning.  If  so,  assigns  ALARM. DIST  the 
distance  to  NEARBY. DET. 


LINES  58  -  64 


or    ALARMS    nearby    has 
chemical   agent,    ALAEM.OIST   will   be 


or   more    PERSONS 
detected   a 

less        than         or      equal 
ALARM.  DIST.  MAX,       so    the 
will      have      a    time      of 
assigned. 


:o        the         distance 
PERSON   beina    updated 
detection         T.CHEMDET 


LINES   66   -    67 


If  he  failed  to  detect  the  presence  cf  a 
chemical  hazard,  the  routine  returns  to 
CHEM. CHECK;  otherwise,  the  current  simulation 
time  l.CHEMCURR  is  assigned  the  value  for  the 
PERSON'S    detection   time,    T.CHEMDET. 
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LINE  68 


If  the  PERSON  is  inside  a  vehicle  with 
overpressure  (CP=1),  the  routine  returns  to 
CHEM. CHECK  since  it  is  assumed  that  soldiers 
inside  closed  vehicles  with  overpressure  will 
not  need  to  react  to  the  detection  event. 


LINES  69  -  75 


If  the  PERSON  is  not  in  a  CP  equal  to  1,  then 
a  check  is  made  to  see  if  he  is  masked.  If 
not,  the  mask  routine  is  called  and 
T.CHEBCURS  is  uodated.  If  T.MASK  had  been 
assigned  a  value  previously  within  DELT,  it 
is  integrated  into  the  current  event  sequence 
bv  updating  T.CHEMCURR  to  the  value  previ- 
ously  assigned    to   T. MASK. 


LINES    75    -    80 


Checks  tc  see  if  the  PERSON  will  inject  a 
nerve  agent  antidote  based  on  a  panic  reac- 
tion tc  the  detection  of  the  attack.  If  a 
uniform  (0,1)  random  number  is  less  than  or 
equal  to  PC.NAA,  then  the  N'AA  routine  is 
called  and   injection    will    occur. 


LINES    81    -    33 


Since  the  PERSON  at  this  point  will  have 
detected  the  presence  of  alchemical  agent 
durina  the  iteration  (since  he  has  not  yet 
exited  tne  routine) ,  the  DETECTION  routine 
will  call  the  routines  OHC,  DECON,  and  MGPP. 


CODE 


1  ROUTINE    FOR    DETECTION    '•OP    CHEMICAL     AGENTS 

2  PRINT       1     LINE    THUS 
DETECTION     FOUTINE    CALLED    FRCM    MAIN 

3  DEFINE    X,    Y,    ALAFB.DIST.    ET.CHEBDET    AND    DIST 
U  AS    0-DIHEHSICNAL,    REAL    VARIAELF.S 

5  DEFINE    NEARBY. DET,     AS    AS    0-DIME NSIONAL,     INTEGER    VARIABLES 

5  FOR    J=1     TC    N.  AGENT,     DO 

7  T  F^*     X  C     —     3 

8  IF     (      (EEF.G.CURR  (J)     IS    GE    BIN.  G  .CHEM  ( J)  )     OR     (DEP.  A  .CURR  ( J) 

9  IS    GE    BIN.  A.  CHEM  (J))    )  "AGENT    PRESENT    AT    LOCATION 

10  LET    PT.CHEBDET    =    DISTRI3{    DT. DETECT f     (CHEBSIT+1), 

11  AG,    CP  (SOLDIER),     (MASK  (SOLDIER)  ♦  1)  ,     *    )     ) 

12  PRINT       1     LINE    tilTH  „„.     .,      , 

13  DT.  DETECT  (  (CEEttSTT  ♦  1 )  ,  J  ,  CP  (SOLD  IER)  ,  (MASK  (SOLDIER) +1     ,1 

14  DT- DETECT  (    CHEM SIT* 1     , J  ,  CF  (SOLD IER     , (MAS K (SOLDIER) +1     ,2 

15  DT.  DETECT  (  (CKEMSIT  ♦  1  )  ,  J  ,  CF  (SOLD  IER)  ,  (MAS  K  (S  OLD  IER)  +  1 )  ,3 

16  THUS 
DT. DETECT    CALLED:     ****      ****       **** 

17  LET    U1    =    CISTRIB(    UPTR(*)     ) 
13  LIST    01,    PT.CHEMDET 
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19  THEN    IF    U1    IS    LE     PT.CKEMDET  •'  DETECTION    HA3    OCCURRED 

20  I?    T.CHEMDET  (SOLDIER)    IS     EQUAL    TO    0 

21  LET    T.CHEMDET  (SCLDIER)     =     (    (  1-PT  .CHEMDET)  * 

22  (T.CURR2NT-T.CHEMCURR)     )     ♦  T. CHEMCURB 

23  ELSE    LET    T.CH  EMDST  (SOLDIER)     =    MIN.F(    T.  CHEMDET  (SOLDIER)  , 

2 'I  (  (  (1-PT.CHEMDEl)*(T.  CURRENT-T. CHEMCURR) )     ♦    T.CHEMCURR)     ) 

25  ALWAYS 

26  REGARDLESS  LCCP 

21  LIST    T.CHEMDEl(SCIDIER) 

28  'PROXIMITY'     LET    ALARM.  DIST    =    AL. MAX  .  DIST  (SIDE)     ♦    1 

29  PRINT       1    LINE    THDS    REACHED    'EEOXIMITY'    IN    DETECTION    ROUTINE 

30  POR    I    =     1    TC    N. PERSON,     DC 

31  LET    NEAREY.CET    =     FERSFTR(I) 

32  IF    PEBSPTR(I)    =    SOLDIER,    GO    EXIT 

33  OTFERWISE    LET    X    =    X. CDRB FNT  (NEARBY . DET) 

34  LET    Y     =    Y. CURRENT  (NEAREY. DET) 

35  LET    DIST    =    3QRT.F(    (X-X.CURR  INT  (SOLDIER)  )  **2    ♦ 

36  (Y-Y. CURRENT  (SOLDIER).)  ** 2    ) 

37  IF    DIST    IE    LESS    THAN     ALARM- DIST 

38  ''LIST    NAME  (NEAREY.  GET)  ,     N  AM  E  (SOLDI  ER)  ,    X,  Y,  X  .CURRENT  ,Y. CURRENT  , DIST, 

39  "T.CHEMDET  (NEAREY. DET)  ,    TL 

40  THEN  IF  (T.CHEMDET  (NEARBY. DET)  IS  LE  TL)  AND 
4  1  (I.  CHEMDET  (NEA.HEY. DET)  IS  NOT  EQUAL  TO  0) 
4  2  LET    ALARM.  DIST    =    DIST 

43  REGARDLESS 

44  'EXIT'    LOOF 

45  FOR    K    =     1    TC    N. ALARM.    DO 

46  LET    NEARBY. DET    =     ALPTR(I) 

47  LET    X    =    X.  ALARM  (NEARBY. DET) 

48  LET    Y    =    Y. ALARM  (NEARBY. DET) 

49  LET    DIST    =    SQRr.F(    (X-X.CURR  ENT  (SOLDIER)  )  **2    + 

50  fY-Y.  CURRENT  (SOLDIER)  )  **  2    ) 

51  IF    DIET    IE    LESS    THAN     ALARM. DIST 

52  THEN    IE    WARNING  (NEAREY.  DET)     IS    EQUAL    TO    1 

53  "LIST    NEARBY. DET,     WARNING  (NEARBY.  DET)  ,    CIST 

54  LET    ALARM.  DIST     =    DIST 

55  REGARDLESS 

56  LOOF 

57  LIST    ALARM.  DIST.    AL  .MAX.  DIST  (SIDE) 

58  IF    ALARM. CIST    IS    LE     AL  .  M  AX.  DIST  (SIDE) 

59  IF    T.CHEMDET  (SOLDIER)     IS    NOT    EQUAL    TG    0 

60  LET    T.CHEMDET  (SOLDIER)     =     MIN .  F  (    T.  CHEMDET  (S  OLDIE?)  , 

61  (  ((ALARM.  DIST/AL.  MAX.  DIST(SIEE)  i  *(T  .CURRENT-!. CHEMCURR)  )     ♦    T.CHEMCURR)     ) 

62  ELSE    LET    1  .CHEKDE  T  (SOLDIE  R)     =     ((( AL  ARM.  DIST/ 

63  AL.  MAX.  DIST  (SIDE)  )*  (T.  CURRENT-T . CHEMC URR)  )     ♦    T.CHEMCURR) 

64  ALWAYS    REGARDLESS 

65  LIST    T.CHEMDET  (SCLDIER) 

66  IF    T.CHSMCEI  (SOLDIER)     =    0,    GO    OUT 

67  OTHERWISE    LET    T.CHEMCURR    =   T.CHEMDET  (S0LDI3B) 
63  IF    CP(SOLDIEH)     =    1  ,     GO    O0T 

69  OTHERWISE    IF    MASK(SOLDIEB)    IS    NOT    EQUAL    TO    1        "NOT    ALREADY    MASKED 

7  0  CALL    MASKING 

71  LET    T.CHEMCURR    =    T.  M A SK (SOLD ISR) 

72  REGARDLESS    IF     (TL   IS    LE    T.  MASK  (  SOLDIER)  )      AND     (T. MASK  (SOLDIER) 

73  IS    L2    T.  CURRENT) 

74  LET    T.CHEMCURR    ■    T.  MASK  (SOLD  IER) 

75  REGARDLESS 

76  'NEXT'  LET  U2  =  DISTRI3(  UPTE(*)  ) 

77  LIST  PC.NAA,  G2 

78  IF  FC.NAA(SIDE)  IS  GE  U2 

79  CALL  NAA 
60  REGARDLESS 

\\  CALL  CHC  GIVEN  PC.OHC(SIDE) 

82  CALL  CECCN  ' 

83  CALL  MCPP 

84  'OUT'  RETURN 

85  END  "OF  ROUTINE  FOR  DETECTION 
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5.      The    Routine    CHC 


Purpose : 
1 


If    the      PERSON 
head  cover, 
seek  overhead 
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aaent  hazard   by   any  means 


md 


S S  U 1 Z      n  a.  i.  j.      SrtK 


'~  Vf   -^  T  -• 


:    N.SIDE 

It      is    given    the 

variable  ?C. OHC 
ON  is  on,  except 
ed    from    DECON2. 

s   given   a   value 


value      contained    in 

for      the    sids      the 

when   the    routine    is 

In   the   latter    case, 

of    one. 


LABELS 


A1 
A2 

A3 
OCT 


TEMPORARY    ATTRIBUTES 


INTEGER 


CP 


This    attribute    indicates    the   current    level   of 
collective   protection    afforded   the    PERSON 
Values: 

1  -    A    vehicle    with      an    operating   overcressure 

system 

2  -    A    vehicle   without    an    overpressure   system 

3  -    A    fcunker    or    building 

4  -      A   foxhole,         with      or    without      temporarv 

overhead    cover 

5  -    No  protection     (the    PERSON    is    in    the    open) 
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TEMPORARY    ATTRI30TES 


REAL 


T.CP 


his    attribute    provides    the   time    at    which   the 
ER30N   assumed      his   current    level      of   collec- 


tive   protection. 

Value:   The  time   as   given   above 


T.OHC 


This 
PERSO 
t  ive 
3   dur 
time 
in   CP 
s  ee    i 
Value 
0   -    i 


attribute  provides  the  time  at  which  the 
N  assumed  his  current  level  of  coliec- 
protection,  if  he  went  into  CP  1,  2,  or 
ing  this  iteration;  otherwise,  it  is  the 
that  he  created  temporary  overhead  cover 
4  or  5 .  It  is  also  used  as  a  check  to 
f  temporary   overhead  cover  exists. 


f      no      overhead      cover 
PERSON    is    in    CP    1 ,         2, 
automatically   exists) 
The    time   as      given   above,      if 

SXiStS. 


exists 
or    3 , 


(or      the 

where   it 


overhead    cover 


GLOEAL    VARIABLES 


INTEG 


CF.EMSIT 


This    vari 

■C  -s  >■*  •   *i   r*      ^  V 

value      is 
beginning 

Values: 


0    - 


1    - 


2    - 


3    - 
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e   indicates   the    current   situation 

etermined~by    wCHSM7cHECK~wat      the 
the    iteration    over   this    PERSON. 

ON    is    stationary   and    has   not   besn 
y  attacked      by    (in      the    immediate 

ellipse  of)  a  chemical  agent 
n 

ON  is  in  the  immediate  effects 
cf  a  chemical  agent  munition.  He 
stationary  or  moving 
ON  is  movma  in  an  area  of  previ- 
epesited  contamination.  There  is 
erne  agent  present 
SON  is  moving  in  an  area  where 
s   still   agent    in      the    air    (it    has 

deDosited  on  the  ground) ,  and 
t  been  directly  attacked  by  a 
1   munition 


OLDCP 


This    variable      gives    the      value   for      the    most 
recent     collective   protection      category      that 

in,         if   he    changed    categories 
It    is   set   equal   to   the   current 


the    PERSON   wa 
during   DSLT. 


-4.     '-*  —     ^  44   H  *-*   -J     ±J  -a-     •  -4.     -  —  —  —*     —     —  -    M      -*  *-A  —  <~W  U   41     ^  •—      -4 —  -  1      - 

CP  value  at  the  beginning  of  the  iteration  by 
the  routine  UPDATE;  if  the  CP  category 
changes   for    any   reason,        the   old   category   is 
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SIDE 


stored  in  OLDCP  for  the  remainder  of  the 
iteration  and  the  new  CP  cateaory  is  stored 
in  the  attribute  CP.  It  is  used  to  accurately 
determine  the  reduction  in  concentration  or 
deposition  caused  by  the  C? . 
Value:    As   given   above 


This    variable   is      used   to   store   the      value   of 
the   side  the    PERSON   is      on.      If   the   attribute 
COLOR    is    used,     SIDE    =     COLOR  (PERSON)     +    1 
Value:    COLOR  (PERSON)     *    1 

SCLDIEB 

This    variable      is    used   to      conveniently    refer 
to    the   memory    location   of    the    PERSON    which   is 
currently   being   checked   in    the   model. 
Value:    SOLDIER    =    PEfiSPTR  (    NAME  (PERSON)     ) 

GIOEAL    VARIABLES  REAL 

DT.OHC  (3-D) 

This  array  holds  the  probability  distribution 
used  to  determine  the  time  required  to  reach 
or      create      overhead    cover.  The      temocrarv 

variable  T.OHC.D  drawn  from  it  is  added  to 
T.CHEMCURE  to  yield  the  time  that  the  collec- 
tive protection  was  reached  (T.CP)  or  the 
time  Lat  which  the  overhead  cover  was 
completely  over  the  body  (T.OKC). 
Dimensions:  N.SIDE  by  3 
Values: 

1st    dimension:    The   side   of   the    PERSON 
2nd    dimension: 

1  -   The    distribution    type 

2  -   The    first   parameter  of  the    distribu- 

te on 

3  -   The    second  parameter     of    the    distri- 

bution 

PC.ACT.OHC  (2-D) 

This  array  provides  the  probabilities  that  an 
individual  will  choose  a  particular  one  of 
three  alternative  actions  in  seekina  or 
creating     overhead   cover.  A   uniform       (0,1) 

random  number  is  drawn  and  compared  first  to 
the  first  element  in  the  second  dimension  - 
If  this  number  is  less  than  that  element  of 
PC.ACI.OHC,  the  first  action  is  chosen  (enter 
a  vehicle)  .  If  the  number  is  areater  than  or 
equal  to  the  first  element,  but  less  than  the 
second  element  of  the  second  dimension,  the 
second  action  will  be  chosen  (enter  a 
bunker).  Otherwise,  the  third  action  is 
chosen  (create  temporary  overhead  cover)  . 
Dimensions:     N.SIDE   by    2 
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Value- s: 

1st  dimension:   The  number  of  the  side   the 

PERSON  is  on 
2nd  dimension: 

1  -  The  probability   of  choosing   action 

n  u  m  c  s  r    1 

2  -    The      prcbaility   of      choosing      action 

number    2,      adaed    to    the    firs*,    prob- 
ab  iiitv 


T.CHEMCURR 


This    variable   serves   as 


a    counter    that    keeps 
hich   the      last  action 


performed  or  scheduled  to  be  performed  bv  the 
PERSON   was    completed. 

OETR  (1-D) 

This  array  is  used  as  a  convenience  to  call 
for   a    uniform    (0,1)    random   number. 

Dimension:  3 
Values: 

I    -    2     (the  uniform   distribution) 

2-0    (the  first    parameter) 

3   -    1     (the  secend    parameter) 

RECURSIVE    VAEIABLES  REAL 

I.OHC.  D 

This  variable  is  assigned  the  valua  for  the 
time  it  takes  to  seek  or  create  overhead 
cover,    as    drawn    from   the    distribution,    D.OHC. 

U  1 ;    02 

These  variables  are  used  to  store  uniform 
(0,1)     random    numbers. 

EHIEr    EXPLANATION    0?    CODE 

LINES    5-6 

Checks  to  see  if  the  person  is  under  overhead 
cover  -  T.0HCf  the  time  that  overhead  cover 
was  assumed,  is  not  equal  to  zero,  and/or  the 
collective  protection  attribute  CP  is  equal 
to    1,    2,    or    3. 
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LINE  7 


Checks  to  see  if  the  PERSON  is  in  CHEMSIT  2. 
Because  this  was  defined  as  an  ares  withou"1- 
ant  airborne  hazard,  the  liklihood  of  sseking 
overhead  cover  is  virtually  nil. 


LINES  3-10 


If  the  person  is  not  presently  under  overhead 
cover,  the  probability  that,  he  will  seek 
overhead  cover,  PROBr  is  compared  to  a  random 
uniform  (0,1)  number  as  before.  PROB  is  an 
argument  passed  to  it  by  the  calling  routine. 
In  all  cases  except  when  the  OHC  routine  has 
been  called  by  the  routine  DECON2,  this  vari- 
able will  be  equal  to  a  Global  variable 
PC. OHO  PC.CHC   is      a    user-supplied     global 

variable  that  sets  the  probability  that  a 
PERSON  who  has  been  directly  attacked  by  a 
chemical  agent  (CHEMSIT  =  1 \  or  is  receiving 
indirect  fire  and  is  assuming  it  is  a  chem- 
ical aaentr  will  assume  that  the  threat  posed 
is  a  persistent  agent  and  that  in  doing  so, 
»ill    seek   overhead   cover. 

LINES    11-16 

PC. ACT. OHC,  the  N.SIDE  X  2  array  contains  the 
probability  of  going  into  a  vehicle 
(PC. ACT. OKC (SIDE. 1) )  and  the  probability  of 
going  into  a  bunker  (PC  ACT.  0HC*(SIDE,2)  )  'for 
e  ac  h  "id-.  T^e  orobabiiitv  o^  cr  — ati^cr 
temporary  overhead  cover  is  one  minus  the  sum 
of  the  other  two.  These  probabilities  are 
compared  to  a  uniform  (0,1)  random  number  to 
deteriine   the   action    that    will    be    taken. 

LINES    17    -    22;    23    -    28;    29    -    31 

The  time  required  to  assume  that  overhead 
cover,  given 'the  action  taken,  is  found  from 
the  N.SIDE  X  3  X  3  array  DT.OHC.  Th«  value 
drawn  from  DT.OHC  is  assigned  to  the  tempo- 
rary variable  T.OHC.D,  and  T.CP,  the  time 
that  the  new  CP  category  was  assumed  (when 
applicable)     is    T.OHC.D    +    T.CHEMCURR. 


LINE   33 


In  all  cases  the  time  that  temporary  overhead 
cover  was  created,  T.OHC,  'is  T.OHC.D  ♦ 
T.CHEMCURR. 
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CODE 


1  ROUTINE    CHC    GIVEN    FFCB 

2  DEFINE    U1,    U2,    FEOB     AS    0 -DIMENS ION AL ,    REAL    VARIA3LES 

3  PEI81       1     LINE    WITH     PROB    THUS 
ROUTINE    OHC    CALLED    GIVEN    * .  ** 
a       LIST    CHEM3IT,    T.  CHC  (SOLDIER)  ,    CP(SOLDIER) 


5  IF    I. OHC  (SOLDIER)     IS    NOT    EQUAL    TO    0,     RETURN       '  'ALREADY    UNDER    OHC 

6  OTHERWISE    IF    CP (SOLDIER)     IS    LE     3,     RETURN  "UNDER   OHC    IN    CF 

7  OTHERWISE    IF    CKEMSIT    IS     ECUAL    TO    2,    RETURN       "CROSSING 

8  OTHERWISE    LET    U1    =    DISTRIE(    UPTR(*)     )  «'A    UNIF(0,1)     PANDOfl    NO, 

9  LIST  U) .  FRCE 

10  I?  U1  IS  GT  PRCE,  RETURN    •  'SOLDIER  DOES  NOT  SEEK  OHC 

11  OTHERWISE  LET  U2  =  DISTRIE(  UPTR(*)  ) 

12  LIST    U 2       PC. ACT. OHC 

13  IF    U2    IS     LT*FC.  ACT.OHC(SIEE,  1)  ,     GO    TO    A1  "A1    -    GO    TO    VEHICLE 

14  OTHERWISE    IF    02    IS     LT    PC  .  ACT.  OH  C  (SIDE, 2) 

15  GO    TO    A2  "A2   -    GO    TO    EUNKER 

16  OTHERWISE    GO    TO    A3  "A3    -    CREATE    TEMP    OHC 

17  «A1«     LET    T.OHC.D    =    DISTRIB(     DT. OHC ( SIDE, 1  ,*)      ) 
13  PRINT       1     LINE    THUS 

WENT    TO    ACTION     A1    IN    ROUTINE    OHC 

19  LET    CLDCP    =    CF  (SOLDIER) 

20  LET    CP(SOLDTER)     =    2 

21  LET    T.  CP  (SOLDIER)    =    T.CHEHCURB     ♦    T.OHC.D 

22  GO    CUT 

23  «A2'     LET    T.OHC.D    =    DISTRI3(     CT.OHC  (  SIDE,  2  ,*)     ) 

24  PRINT       1     LINE    THUS 

WENT   TO    ACTION     A2    IN    ROUTINE   OHC 

25  LIT    CLDCP    =    CF  (SOLDIER) 

26  LET    CP  (SOLDIER)     =    3 

27  LEI    I.CP  (SOLDlEr!)    =    T.  CHEKCUSR    ♦    T.OHC.D 

28  GO    CUT 

29  'A3'  "NOTE  -  OHC  IS  PROVIDED  BY  A1  AND  A2,  AS  HELL  AS  A3 

30  PRINT   1  LINE  THUS 

WENT  TO  ACTION  A3  IN  ROUTINE  OHC 

31  LET  T.OHC.D  =  DISTRIB(  DT  .OHC  (S  IDS,  3 ,  *)  ) 

32  'OCT' 

33  LET    T. OHC  (SOLDIER)     =    T.CEZMCURR    ♦    T.OHC.D 

34  LIST    T.CHC(SOLDIER)  ,    OLDCP,     CP(SOLDIER),    T.CP  (SOLDIER) 

35  RETURN 

36  END  •  'OP    RCOTINE    OHC 
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The    Routine    MOP? 


E  u  r  p  os  e : 

1.  Checks  the  levels  of  chemical  protection 
stored  in  the  array  PFA.CH2M,  for  body 
areas  1  through  7,  and  compares  *:hsm  to 
the    levels   of   maximum    protection,    Pr.MAX. 

2.  If  any  of  the  ieveis'of  protection  have 
associated  times  indicating  that  the 
donning  of  maximum  chemical  protection  is 
scheduled  (by  other  means,  such  as  on 
order)  but  not  yet  completed  (the  time 
that  donning  the  protection  over  area  i 
was  completed,  TA.  PP.  CHEM  (i)  ,  is  after  the 
current  simulation  time,  T.  CHEMCURS)  ,  then 
this  scheduled  donning  is  incorporated 
into  the  current  HOPP  sequence  bv 
assignina  T.CHEMCURR  the  TA.  PF.CHEM  (i) 
value. 

3.  Fcr  areas  of  the  body  where  the  level  cf 
protection  worn  or  scheduled  to  be  worn  is 
not  the  maximum  level  (full  chemical 
protection)  ,  the  routine  draws  the  time  it 
w o uld  t a  k e  to  don  t h e  it  en  from  th  = 
distribution  array  DT.PP,  schedules  the 
time  that  the  donning  would  be  complete, 
TA . PF. CHEM  (i)  ,  updates  the  current"  time 
for  that  PERSON'S  activities,  T.CHEMCUKR, 
and  assigns  the  maximum  P?  level  to  the 
apcrooriats  PF.CHEM  attribute. 
4.  Determines  if  each  item  of  protective 
clothing  or  aear  will  leak;  it  it  will, 
assigns  a  leakage  factor  to  the  array 
B  ?  A  .  LZ  AK. 

SCUTINSS    CALLED    BY     MOPP 

MASKING 
TEMPORARY    ATTRIBUTES  INTEGER 

VEH.  SYS. TYPE 

This    attribute,      along    with    VEH. WPN. TYPE ,      is 
used    to  identify   a   particular   vehicle   type. 
Value:    As   given   above 

VEH.  WPN.TYPE 

This    attribute,      along    with    VEH. SYS. TYPE  ,      is 
used    to  identify  a   particular   vehicle  type. 
Value:    As   given   above 
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TEMPORARY    ATTRIBUTES  REAL     " 

T.MASK 

This    attribute      stores    the    time   at      which   the 
PERSON   finished   donning   his    protective   mask. 
Value:    The   time   as  givan    above 

GIOEAL    VARIAELES  INTEGER 

SIDE 

This    variable    is      used    to   store   the  value    of 

the    side    the    PERSON   is      en.       If  the  attribute 

COLOR    is    used,     SIDE    =    COLOR  (PERSON)  +     1 
Value:    COLOR  (PERSON)     ♦    1 

SCLDIER 

This    variable      is    used    to      conveniently    refer 
tc   the   memory   location    of    the    PERSON    which    is 
currently    being   checked    in    the    medal. 
Value:    SOLDIER    =    PERSPTR(    NAME  (PERSON)     ) 

G  IDEAL    VARIAELES  REAL 

D.PF.LSAK  (3-D) 

This  array  provides  the  probability  distribu- 
tion fcr  determining  the  amount  of  leakaae  to 
liquid  aaents  found  in  the  items  of  protec- 
tive clothing  that  cover  the  seven  body 
areas.  The  array  elements  PFA.LEAK  are  drawn 
from  the  distribution. 
Dimensions:    7    (the   number   of   body    areas)    by   3 

V  al  u  e  s  : 

1  -    The  distribution    type 

2  -   The   first    parameter   of    the   distribution 

3  -    The  second    parameter   of    the   distribution 

DT.PF  (4-D) 

This  array  holds  the  probability  distribution 
used  to  determine  the  time  required  tc  don  a 
given  item  of  chemical  protective  clothing, 
for    each    body   area.  The   temporary    variable 

T.PF.D   is   drawn    from      the   distribution;      when 
added   to   T.CHEMCURR,       this    yields   the   time   at 
which   the   clothing    was    donned,      TA.  PF.CHEM  (i) 
for    body   area   i. 
Dimensions:     N.SIDE   by    3 

V  alues : 

1st  dimension:  The  side  of  the  PERSON 
2nd  dimension: 

1  -  The  distribution  type 
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2  -   The    first   parameter   of  the    distribu- 

tion 

3  -   The    second   parameter     of    the   distri- 

bution 

PC. PF. LEAK  (2-D) 

This  array  gives  the  probability  that  the 
item  cf  full  chemical  protection  covering  a 
given  body  area  will  leak  with  respect  to 
liquid  agents.  This  leakage  may  be  caused  by 
tears,  ccmbat  damage,  improper  fitting  or 
donning,  some  agent  being  "trapped  under  the 
garment  from  inadequate  or  no  v decontamina- 
tion. Tf  the  item  will  leak,  the  leakage 
amount  is  drawn  from  D.PF.LnAK. 
Dimension:  N.SIDE  by  7 
Values: 

1st    dimension:    The   side   that   the    PERSON    is    on 
2nd    dimension:    The   probability   as    aiven    above 
for   the    body   area    1    thru' 7 

PF.MAX  (2-D) 

This  array  provides  the  protection  factor  for 
the  item  that  provides  full  chemical  protec- 
tion for  a  given  body  area.  Implicitly,  this 
array  also  defines  the  maximum  protective 
(full  MOPP^  level. 
Dimensions:  N.SIDE  by  7 
Values: 

1st    dimension:    The   side   that   the   PERSON    is    on 
2nd    dimension:    The    protection    factor    for    izc\i 
body  area,    as   explained   above 

PFA.  CHZM  (1-D) 

This  array  provides  the  current  protection 
factor  for  each  of  the  seven  body  areas  of 
the       PERSON. Implicitly ,  this      array        also 

defines  the    current   protective    (MOPP)     level. 

PFA.  LEAK  (1-D) 

This  array  provides  the  percentaae  leakage 
with  respect  to  liquid  agents  of  the  chemical 
protective  clothina  on  =  ach  of  the  seven  body 
areas  cf  the  PERSON.  The  leakage  may  be 
caused  by  tears,  combat  damage,  improper 
fitting  or  donning,  some  agent  being  trapped 
under  the  garment  from  inadequate  or  no 
decontamination.  The        determination        of 

whether  or  not    the   item   would   leak    was    accom- 
plished through      a   comparison      to    PC. PF.  LEAK. 
If  the   item    will   leak,      the    PFA. LEAK    value   is 
drawn    from   D.PF.LEAK. 
Dimension:    7 
Values: 
0   -    If   the   item    does   not    leak 
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A   fraction   between   0 
leak 


and    1    if  the      item   dees 


T.CHSMCOEB 


This  variable  serves  as  a  counter  that  keeps 
track  cf  the  time  at  which  the  las*  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON  was  completed. 


TA.PP.  CHEM 


(1-D) 


This  array  provides  the  time  -hat  the  current 
level  of  individual  chemical  protection  was 
denned,  for  each  body  area.  The  pointer  to 
this  array  is  stored  in  the  "attribute 
T.PF. CHEM. 


UPTR 


(1-D) 


This    array   is      used  as    a    corveniencs 

for   a    uniform    (0,1)    random   number. 

Dimension:    3 

Values: 

1-2     (the   uniform   distribution) 

2-0    (the   first    parameter) 

3   -    1     (the   second*  parameter) 


to   ca-i 


RECURSIVS    VARIABLES 


REAL 


T.FF.D 


This  variable  is  used  to  store  the  time  it 
takes  to  den  an  item  of  full  chemical  protec- 
tive clothing  (as  defined  by  PF.KAX)  over  a 
qiven  body  area.  It  is  drawn  from  the  distri- 
bution   DT  .  ?  F  . 


This      variable    is      used      to      store    a      uniform 
(0,1)     random    number. 

ERIEF    EXPLANATION    OF    CODE: 

LINE   5 


If  the  PERSON  is  currently  wearing  an  item  of 
full  chemical  protection  (e.g.,  the  protec- 
tive mask,  which  will  protect  body  area  2)  , 
then  the  routine  checks  to  see  if  the  donning 
of  this  item  has  been  completed  or  is  sched- 
uled to  be  completed  at  some  time  after  th° 
individual's  current        simulation  time 


he 
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LINE   6 


T.CHEHCORR.  If  the  item  has  already  been 
denned,  -hen  the  routine  will  loop  to  the 
next  tcdy  area  in  numerical  order  (which  is 
also    the   logical   denning    order,    by    design)  . 


For  each  area  of  the  body  which  has  net  yet 
been  afforded  full  protection,  the  routine 
enters  the  array  DT.PF  to  obtain  the  appro- 
priate distribution  from  which  to  draw  "the 
time  it  took  to  don  that  particular  item  of 
protective  clothing,      and      assigns    that    value 


to   T. FF.D. 
LINES    7-9 


The      values      in   TA.PF.CHEH,         PFA.CHEW,         and 
T.CHEMCURR  are    updated. 


LINES    10    -     12 


If  the  protective  mask  was  donned  (body  area 
2),  in  addition  to  assianing  values  to 
TA.  PF.CHEivl{2}  ,  PFA.CHEM(2)  ,  'and  ?FA.LZAK(2), 
the  routine  will  update  the  values  for 
T.M&5K,  MASK,  and  HASKLEAK  bv  calling  the 
MASKING  routine.  T.MASK  will  be  the  same  time 
as  TA.PF.CHEM (2) ,    assigned    in    line    7. 


LINES    14    -    18 


If  an  item  cf  protective  clothing  has  been 
donned  at  this  time,  the  routine  will  check 
to  see  if  this  item  of  gear  will  leak  due  to 
tears,  combat  damage,  improper  donning  or 
fit,  agent  trapped  under  the  clothing,  etc. 
It  dees  this  by  comparing  a  uniform  (0,1) 
random  number  to  the  probability  that  a  given 
item  cf  full  chemical  protection  over  body 
area  i  will  leak,  PFA.LEAK(i).  If  it  will, 
the  amount  of  leakage,  expressed  as  a 
percentage  of  the  deposition  on  the  outside 
of  the  garment,  is  drawn  from  the  distribu- 
tion D.PF.LEAK.  This  value  is  assigned  to 
the  array  PFA.LEAK. 


LINES  19  -  20 


If  the  item  is  scheduled  to  be  donned,  then 
this  scheduling  is  worked  into  the  current 
schedule  by  assigning  T.CHEMCURR  the  time  at 
which  that  scheduled  action  will  be 
completed,       before   moving   on  to  the    next   bedy 


area 
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LINE   24 


If  all  items  of  the  body  have  been  protect sd, 
the  routine  will  return  -o  the  calling 
routine.  Note  that  T.CHEMCUSH  has  beef, 
uodated  in  cases  where  the  individual  has 
been  scheduled,  but  has  not  yet  completed, 
donning  full    protection. 


CODE 


1  ROUTINE    MOPP 

2  DEFINE    T.PF.D,    U    AS     Q-DI KENSION AL ,    HEAL    VARIABLES 

3  PRINT       1     LIME    THUS 
ROUTINE    MOPP   CALLED 

4  FOR    I    =     1    TO    7,     DO 

5  IF    PFA.CHEM(I)     IS    MOT    EQUAL    TO    PF. MAX (SI DE,I) 

6  LET    T.rF.C   =    DISTRICT    DT.  PF  (V2H.  SYS.  TYPE ,    V2H.  WPN.  TYPE,  I,  *)     ) 

7  LET    TA.FF.CHEM  (I)      =    T.CHEHCURR    ♦    T.PF.D 

8  LET    T.CKEMCURR    =    T  A.  PF.CH  EM  « I) 

9  LET    PFA.CHEM(I)     =    EF.  M  AX  (SICE,  I) 

10  IF    I    =    2  "MASK     DONNED 

11  CALL    MASKING 

12  LET    T.  MASK  (SOLDIER)     =    TA.  PF.  CHEH  (2) 

13  ELSE 

Id  LET    U    =    DISTRIB  (    UPTP{*)     ) 

15  LIST  U,  PC.PF.LEAKjSIDE.I),  I 

16  IF  U  IS  LE  PC.  PF.LEAK(SIDE,I) 

17  LET  PFA.LEAK(I)  =  DISTRIB(  D.  PF.  LEAK  (SIDE,  I,  *)  ) 

18  ALWAYS    REGARDLESS 

19  ELSE     IF    TA.PF.CHEM(I)     IS    GE    T.CHEMCURH 

20  LET    T.CHEMCURR    =    T  A.  PF.  CH  EM  ( I)        ALWAYS 

21  REGARDLESS    LIST    I,    T.PF.D 

22  LOOE 

23  LIST    TA.PF.CHEM,    PFA.LEAK 
2U  RETURN     . 

25      END  "OF    ROUTINE    MOPP 
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•The    Routine    EECON 


Purpose: 

1.  Separates  out  the  case  of  immediate  decon- 
tamination after  initial  d -tec- ion  of  -he 
chemical  agent  hazard  from  the  c*s&  of 
delayed  decontamination  after  the  appear- 
ance of  symptoms  of  chemical  "agent 
poisoning . 

2.  for    immediate    decontamination: 

a.  Determines  if  decontamination  will 
occur  using  the  oara  meter 

pc.iaa.  decon. 

t.  If  decontamination  dees  net  occur, 
checks  to  see  if  anv  body  area  with 
less  than  the  maximum  level  of  chem- 
ical protection  was  contaminated.  If 
so,  sets  a  PFA.  LEAK  value  to  account 
for  agent  .rapped  under  the  protec- 
tive   garment. 

c.  If  decontamination  does  occur,  sched- 
ules decontamination  of  the  skin 
first,  then  clothing  second,  throuah 
calls  to  routine  DECON 2.  The  tim* 
required  to  decontaminate,  multiple 
agents  on  the  s  k  i  n  f  ir  dD'Oiicacis,  is 
added  to  the  time  required  to  decon- 
taminate one  agent  using  a  multiplier 
AG. HOLT. DECON. * 

3.  For  delayed    decontamination: 

a.  Schedules  deccntamir.at ion  of  all  body 
areas    through    calls    to    DEC0N2. 

b.  Adds  the  ~im=  required  tc  remove 
items  of  orc-tective  clothing  before 
decontaminating  by  doubling  the 
donnina      time. 

4.  Determines  ^if  the  orctective  mass  will 
leak  using  the  parameter  PC.MSKLEAK.  If  it 
will,  sets  'a  value  on  the  attribute 
MA  5KL2  AK . 

5.  Calculates  the  total  dose  received  durina 
decontamination  for  sach  body  area  by 
callina  the  routine  DEC0N2,  then  summing 
acrcss'all  body  areas  tc  give  the  total 
dosage   for   each  agent. 

6.  If  £he  decontamination  period  extends 
bevond  T. CURRENT,  then  the  average  dese 
that  would  be  received  during  eacn  DELT 
period  from  the  current  time.  (T.  CHEMCURR) 
until  the  time  decontamination  is  complete 
(T. EECON)       and      assigns    this      average    DELT 

ose  to  the  array  AGA. DECON . DOSE  whose 
ointer  is  stored  in  the  attribute 
G. EECON. DOSE. 


I 


ROUTINES    CALIED    BY     EECCN 


EEC0N2 

DEPOSITION 
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LABELS 

EECON. NOW 

DELAYED 

OUT 

TEMPORARY    ATTRIBUTES  HEAL 

MASKLEAK 

This      attribute        indicates      the        amount      of 

leakage    (if    any)      that    the      mask   will   leak    to 

vapors  and  aerosols.       It    is    multiplied    bv   the 

ouside   concentration   of   agent   at    the    PERSON'S 

location,    DEP.A.CURR,      to   yield  the   effective 

concentration   of   acj-at    inside   the    mask.        The 

value        is        drawn'    from        the        distribution 

D.MSKLEAK 

V  al  u  e  s : 

0    -    If   the   mask    does    not    leak 

A   fraction   between   0      and    1    if   the      Task   dees 


i 


eak 


T.  DECCN 


This  attribute   gives  the   time  at   which  the 
orocess  of  decontamination  was  completed,   to 
include  the  don n in a  of   full  chemical  protec- 
tion after  decontamination. 
Value:  The  time  as  given  above 

GLOBAL  VAHIAELES  INTEGER 

CHEMSIT 

This    variable    indicates    the    current    situation 
facing   the   PERSON   during    this   iteration.      The 
value      is      determined    by      CHEM. CHECK      at      the 
beginning   of    the   iteration    ever   this    PERSON. 
Values: 

0  -    The  PERSON   is    stationary   and    has    not    been 

directlv   attacked      by  (in      the    immediate 

effects      ellipse    of)  a    chemical      agent 
munition 

1  -    The  PERSON      is   in      the  immediate      effects 

ellipse    of   a   chemical    agent    munition.    He 
may    oe    stationary    or    mcvina 

2  -    The  PERSON    is    moving    in    an  area    of    orevi- 

cusly  deposited   contamination.      There   is 
no  airborne   agent    present 

3  -    The      PERSON   is      moving    in      an    area      where 

there   is  still  agent    in      the   air    (it   has 

net   all  deposited  on    the      arcund),      and 

has      not  been   directly      attacked      by     a 

chemical  munition 

N.  AGENT 
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SIDE 


This      variable    gives      the      maximum    number     o: 
agents  that    will   be   used    in    a   qiven    scenario 
Value:    As   given   above 


This    variable   is      used    to   store   the  value   of 

the    side   the    PERSON  is      en.       If   the  attribute 

COLOR    is    used,    SIDE   =    COLOR  (PERSON)  +    1 
Value:    COLOR  (PERSON)     +    1 


SOLDIER 


This    variable      is    used   to      conveniently    refer 
to   the   memory   location    of    the    PERSON    wnich   is 
currently    be  ma   checked    in   the   medei. 
Value:    SOLDI  ER'=    PSRS?TR(    NAME  (PERSON)     ) 


GLOEAL     VARIABLES 


REAL 


AG  A.  CUMDOSE 


M-D) 


This    array      holds    -ne      accumulated    IV      dosage 

for    each   aaent. 

Dimension  : ^N . AGENT 

Value:    The    dosage    in    mg    accumulated    up    tc    the 

current  time 


AGA.  DECON.  CCSE 


(1-D) 


This 

agent 

dur  in 

perf  o 

mere 

AGA.C 

which 

tion. 

Dimen 

Value 

dose 

by  th 

perf  o 


array   holds   the      averace    dosage    for  each 
,      in   mg,      that      the    PERSON   will   receive 
g     each         DELT      interval      while 
rming   decontamination.  It    is 

ment         the      accumulated        desage 

interval 


UMDOSE 


lor   every      DELT 


he      is 

ised  to 

array 

dur  lu<3 


the      PERSON    is      performing    decontamina- 

sicn:    N. AGENT 

:  A  dosage  in  mg,  which  is  the  total 
received  during  ae contamination  divided 
e  number  of  DELT  intervals  it  tak<=s  to 
rm  the    decontamination. 


D.MSKLEAK 


(2-D) 


This 

tion 

The 

leak  a 

it   us 

Dimen 

Value 

1  -    T 

2  -    T 

3  -    T 


arra 

for 

vari 

ce  o 

ing 

sion 

c  • 

he   d 

he  f 
he  s 


I 


provides  the  probability  distribu- 
he  leakage  of  the  protective  mask, 
able  MASKLEAK,  the  percentage  of 
f  the  mask  tc  vapors,  is  drawn  from 
the  function  DISTRIB 
s:     N.SIDE    by    3 

istribution   type 

irst   parameter   of    the   distribution 

econd    parameter   of   the  distribution 
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D.PF.LEAK  (3-D) 

This  array  provides  the  probability  distribu- 
tion for  determining  the  amount  of  leakage  to 
liauid  agents  found  in  the  items  of  protec- 
tive clothing  that  cover  the  seven  body 
areas.  The  array  elements  PFA.L2AK  are  drawn 
from    the   distribution. 

Dimensions:  7  (the  number  of  body  areas)  by  3 
Values: 

1  -    The  distribution   type 

2  -    The  first   parameter   of   the   distribution 

3  -    The  second' paramet er   of    the   distribution 


DELT 


The  variable  DELT  is  a  user- supplied  oarara- 
eter  that  gives  the  time  interval  between 
iterations  of   CHEM. CHECK.         It    is   recommended 


seconds   in  length. 

MIN.G.CHEM  (1-D) 

This    array      provides    the      minimum    significant 
level   of     ground   deposition      for    each      agent. 
If   the   deposition    is    below    this   value,       it    is 
treated  as   if  there  were    no   agent    present. 
Dimension:    N. AGENT 

Values:      The      minimum    significant      dscosi~;ion 
for   each   agent 

FC.DEL.DECCN  (1-D) 

This  array  provides  the  probabilities  of 
choosina  to  decontaminate  after  symptoms  of 
chemical  agent  poisoning  hav»  appeared.  If 
decontamination  is  chosen,  it  will  consist  of 
removing  ail  clothing  and  gear,  decontami- 
nating the  entire  bodv,  and  replacing  the 
clothing  with  full  chemical  protective 
clothing.  This  option  is  offered  when  the 
routine  DECCN  is  called  from  the  routine 
SYMPTCM. DETECT. 
Dimension:    N.SIDE 

Values:  The  orobability  of  performing  delayed 
decontamination 

PC. IBM.  DECCN  (1-D) 

This  array  provides  the  probabilities  of 
choosing  to  decontaminate  immediately  after 
discovering  the  presence  of  a  chemical  agent 
hazard.  This  is  prior  to  any  verification 
that      the   hazard      in      fact      does    exist.  If 

decontamination  is  chosen,  it  will  consist  of 
first  decontaminating  exposed  skin,  then  any 
clothing  that  is  not  chemical  protective. 
After   decontamination    has    been   completed,    all 
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areas    of     the   body      will    be      covered    by      full 
chemical    protective  clothing.      This    option    is 
offered      when      the   routine    ' DECON      is      called 
immediately    after    detection    occurs. 
Dimension:    N.SIDE 

Values;      The    probability      of   performing    imme- 
diate decontamination 

PC.HSKLEAK  (1-D) 

This  array  contains  the  probability  that  a 
protective  mask  will  leak  with  respect  to 
vapors  and  aerosols  as  a  result  of"  tears, 
combat  damage,  improper  fitting  cr  donning, 
etc.  If  the  mask  will  leak,  the  leakage 
amount  is  drawn  from  D.MSKLEAK. 
Dimension:  N.SIDE 
Values:   The    probability   as    given   above 

PC. PF.  LEAK  (2-d) 

This  arrav  gives  the  probability  that  the 
i-^em  cf  full  chemical  protection  covering  2 
given  body  area  will  leak  with  respect  to 
liquid  agents.  This  leakage  may  be  caused  by 
tears,  combat  damage,  improper  fitting  or 
denning,  some  agent  being  trapped  under  the 
garment  from  inadequate  or  no"  decontamina- 
tion. If  the  item  will  leak,  the  leakace 
amount  is  drawn  from  D.PF.LEAK. 
Dimension:  N.SIDE  bv  7 
V  al  u  e  s  : 

1st    dimension:    The   side   that   the    ? EPSON    is   on 
2nd    dimension:    The   probability   as   given    above 
for    the    body   area    1    thru    7 

PF.MAX  (2-D) 

This  array  provides  the  protection  factor  for 
the  item  that  provides  full  chemical  protec- 
tion for  a  given  body  area.  Implicitly,  this 
array  also  defines  the  maximum  protective 
(full  MOPP)  level. 
Dimensions:  N.SIDE  by  7 
Values: 

1st    dimension:    The   side   that    the    PERSON    is    on 
2nd    dimension:    The   orotection    factor    for  each 
body   area,    as   Explained  above 

PI  A.  CHEH  (1-D) 

This  array  provides  the  current  protection 
factor  for  each  of  the  seven  body  areas  of 
the      PERSON.  Implicitly ,  this      array        also 

defines  the    current   protective    (MOPP)    level. 

PFA.LEAK  (1-D) 
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T.CHEMCURR 


This  variable  serves  as  a  counter  that  keeps 
track  cf  the  time  at  which  the  last  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON   was   completed. 


T. CURRENT 


This      variable    gives      the   current      simulation 
time    within    the    main    combat    model    calling   the 
chemical    effects   routines. 
Value:    The   time   as   aiven    above 


TA.PF. CHSM 


(1-D) 


This  array  provides  the  time  that  the  current 
level  of  individual  chemical  protection  was 
denned,   for    each   bedy    area. 


TA. IMPAIR 


(1-D) 


TL 


This      array    provides      the   time      at    which      the 

impairment      dose     threshold    was      reached      for 

each    agent. 

Dimension:    N.  AGENT 

Values: 

0    -    if  the    impairment    dose      threshold    has    not 

been   me  t 
The   time     as    given     above      if   the      impairment 

dose    threshold   has    been    reached 


This      variable      gives        the      simulation      time 
within  the   main      combat   model   at   the      time   of 
the    last   iteration. 
Value:   The  time   as   given   above 


DFTR 


(1-D) 
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This    array  is      used  as    a   convenience      to   call 

for    a    unitorm    (0,1)    random   nuinbar. 

Dimension:    3 

V  al  u  e  s : 

1    -    2    (the  uniform   distribution) 

2-0     {the   first    parameter) 

3    -    1     (the  second    parameter) 

RECURSIVE    VARIABLES  INTEGER 

AG 

This    variable   is   used    to      pass   the    agent  tyoe 
as   an    arguement    to   the   routine   DEPOSITION. 
Value:      AG  =    the    iteration    index    j     (the    ag^nt 
type   under   consideration) 

30DI. AREA 

This    variable    is    used    to    oass    the    area    of   the 
body    as  an  arguement   to    the   routine    DECON2. 
Value:    BODY.  AREA   =   the    iteration    ind  =  x    i    (the 
body   area    under   consideration) 


CCNTAM 


This    variable    is    used    as      a    flaq    to 
if   there   is    aa«=nt    present   on   the   skin. 
V  al  u  e  s : 

0  -    if   there    is   no   contamination 

1  -    if  there    is   contamination 


FLAG 


This    variable   is    used    as      a    flag    to    determine 
if    symptoms    have   occurred    as      a   result    of   the 
accumulated    dosaae      for    any      aqent.       This      is 
equivalent   to   checking   to    see    if   TA.  IMPAIR  (j) 
is  not  equal    to   zero    for   any   agent    type    j. 

RECURSIVE    VARIABLES  REAL 

CECON.DOSE  (1-D) 

This  array  is  used   to  accumulate  the  dosages 

accrued   for  each   agent   type   j  during   the 

decontamination  process.   as   computed  in  the 

routine  DECON2.   It  is  the   sum  over  the  body 

area  i  of  all  dosages  (i,j). 

Dimension:  N. AGENT 

Value:  The  sum  over  i  of  the  array  DOSE  (i,  j)  . 

DEP  (1-D) 
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This    array   is   used  to    store   the   deposition   on 
the    arcuna      and  the  concentration    in     the   air 
of  the   agent    type   passed      as   an  argument,      at 
the    time   that   decontamination    commenced. 
Dimension:    2 
Value : 

1  -    The     deposition      for      the     agent      en      the 

ground. 

2  -    Tre  concentration      for    the      aqent   in      the 

air    (not   used) . 

DEPOS  (1-D) 

This  array  is  used  to  store  the  deposition  of 
each  aqent  type  on  the  skin  at  the  time  that 
decontamination  commenced.  This  information 
is  passed  back  to  the  routine  from  the 
routine  DEPOSITION  in  the  first  value  of  the 
vector  DEFOS  . 
Dimension:    N. AGENT 

Value:    The   deposition    for    each   agent    as    indi- 
cated above. 

DCSE  (2-D) 

This  array  is  used  to  store  the  incremental 
dosages  received      during   the      decontamination 

Srocess,    by    agent   and    by    body   area. 
imensions:     7    by   N. AGENT 
Values: 

1st    dimension:    The   body    area   concerned. 
2nd    dimension:      The   dosage      received    for    each 
agent   over   the   body    area   concerned. 

DC5E2PASS  (1-D) 

This    array   is   used  an    an    argument    tc    pass   the 
dosages  received   for    each      agent    over"a    given 
body    area   during   the   decontamination    process. 
It   is    an   arguement    for    tne    routine    DECQN2. 
Dimension:    N. AGENT 

Values:   The    dosaae   of    each    aaent    received,    as 
indicated   above 

T  .  PF .  D 

This  variable  is  used  as  an  argument  to  pass 
the  time  it  took  to  don  the  item  of  chemical 
protective  clothing  over  body  area  i  from  the 
routine  DEC0N2.  It  is  used  in  the  delayed 
decontamination  sequence  to  adjust  for 
removal  times. 


TEMP 


This  variable  is  used  as  a  temporary  summa- 
tion variable  to  sum  the  dosages  in  DOSE(i,j) 
over    the   index    i    (body    area) . 
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U  1 ;    U 2  ;    0  3  ;    U4 


These      variables  are      used      to   store 
(0,1)     random    numbers. 


uniform 


A    BRIEF    EXPLANATION    OF    CODE: 


LINES    12    -     19 


on    the    PERSON   is   assumed    to    be 
he    linearly      interpolated   value      between   his 


The    deposition 

the    linearly 

old      deposition      DEP.G.OLD      and 

deposition      DEP.G.CURR.        This 

calling  the    routine   DEPOSITION      with 


start      and   end     times      equal      to   the 
simulation    time    T.CHEHCUSR.     CO  NT  AM    is 
indicate    if    an   agent    is   present. 


us      current 
is      fcund      by 

the 


both 
current 
u s ed  to 


LINES  18:  22 


The      decision 


If 


I 


node  between  immediate  and 
ntamination        is  the         array 

TA. IMPAIR  is  net  equal  to  zerc 
concerned,  then  symptoms  have 
delayed 


TA.  IMPAIR. 

for   the  aaent 

apoeared  and  delayed  decontamination  may  be 
erformed;  ctherwiss,  immediate  decontamina- 
ion      may   be      performed.  FLAG      is    used     to 

daterrrine      if   any      TA.  IMPAIR      values    are      not 

equal   to   zero. 


/  t 


9  he  n      a  p  er  s  o  n 

traversing      an 


discovers      that 
araa      contamina- 


agent , 

i  T"  <s  a 


he 


Dersistent  chemical 
hate  all  exposed  ar 
protection.  The  probabilities 
this  case  since  it  is  assumed 
nation  will  occur. 


he    has     b< 

e  d        w  i  -1:  h 


•en 
a 


will  d«conta inl- 
and don  full 
are  bypassed  in 
that    aeccntami- 


LINES    24    -    27 


If  the  PERSON  has  not  shown  symptoms,  the 
Drobability  of  his  assuming  that  tne  aaent  is 
persistent  and  that  ha  is  contaminated  is 
expressed  in  the  global  variable 

PC. IMM.DECON .  If  he  chooses  to  decontami- 
nate, the  routine  proceeds  to  the  label 
"DECON.NGW". 


LINE    29 


If  he  chooses  not  to  decontaminate,  then  a 
check  is  made  to  see  if  he  was,  in  fact, 
contaminated.  If  he  wasn't,  no  action  is 
required  and  the  rcuitne  returns  to  the 
calling  program. 
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LINES    30    -    34 


If   h 

the 
valu 
t  ion 
not 
maxi 
refl 
trap 
he  c 


e  was  contaminated,  then  the  values  in 
array  PFA.LEAK  are  assigned  positive 
es  in  all  cases  where  his  current  protec- 
f actor  for  body  area  i  (PF&. CHEN  (I) )  is 
the  protection  factor  belonging  to  the 
mam  chemical  protection  "(PF.  MAX  <±) )  y 
ecting  the  face  that  he  will  have  agent 
ed  under      his   protective     garments     when 

rinn     the 


coses 


:on 


m 


LINES    36    -    53;    54    -    73 


The    exposed      skin    is    decontaminated      first   by 
calling  the      routine    DSCON2.       All      areas  that 


wer 


not  axoosed  skin  (PF  =  1)  or  fullv 
protected  (PF  ~  PF.MAX)  are  decontaminated 
next    through    a    call  to    routine   DSC0N2. 


LINES    39    -    40;    57   -    58 


D  EC  0  N 


serves 


ubrout  i  n- 


ar*  11 


f>  n 


t  u  a  i  l  ''•r 


conDute  the  decon*  aiainat  ion  tunes  and  dosages 
received  during  that  time  for  each  area "of 
the    body    for    all    agents    present   on    the    skin. 


LINES   4  1;    60  ;    34 


The    DECON2      routine  returns    the   dose      for    the 
b <^d  v      area    caliQcl      ^o1"    each      a  cr^r t  »       T**-'  s      is 


stored 


in 


2-dimensiona; 


DOSS  (ECDY.  AREA,  AGENT)  . 
LINES    75    -    98 


array, 


If  the  situation   involved  delayed  decontami- 
nation,    then   ail    body   areas     are 
decontaminated  regardless   or  the 
protection   at   the  time 

performed.   The   times  to  don   the  protective 
garment  are   doubled  to   reflect  the   time  to 

.  mi- 
t o   the 


level 

decontamination 
The      times    to   don 
doubled    to      reflect 
remove   the  old    Drotective    item   and    decontami- 
nate   it,      by      adding    the    donnmt 
variables    T. CHEMCURR    and    TA.PF 


ng    time 
.CHEM. 


LINES    42    -    46;    62    -    66;    87    -    91 

If  an  item  of  Drotective  clothing  has  been 
donned  at  this  time,  the  routine  will  check 
to  see  if  this  item  o£  gear  will  leak  due  to 
tears,  combat  damage,  improper  donning  or 
fit,  agent  trapped  under  the  clothing,  etc. 
It  does  this  by  comparing  a  uniform  (0,1) 
random  number  to  the  probability  that  a  given 
item  of  full  chemical  protection  over  "bedv 
area    i   will    leak,      PFA.LEAK(i).      If    it      will, 
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the      amount,      of      leakage,  expressed      as      a 

percentage  of  the  deposition  on  the  outside 
of  the  garment,  is  drawn  from  the  distribu- 
tion E.pF.LEAK.  This  value  is  assigned  to 
the    array    PFA.LEAK. 

LINES    47    -    52;    67   -    72;    91    -     96 

If  the  protective  mask:  was  donned  (body  area 
2),  in  addition  tc  assigning  values  to 
TA.PF.CHEM<2)  ,  PFA.CHEM(2),  and  ?FA.LEAK(2), 
the  routine  will  uDdate  the  values  for 
T.MASK,  MASK,  and  MASKLEAK  by  calling  the 
MASKING  routine.  T.MASK  will  be  the  same  time 
as   TA.FF.CHEM(2)  . 

LINES    10  1    -     110 

Because  the  decontamination  process  is  likely 
to  stretch  cut  over  many  iterations  of 
CHEM. CHECK,  an  5  because  the  dosage  received 
during  the  time  that  decontamination  is  in 
process  is  a  function  of  the  decontamination 
fate  (the  array  DCS),  the  dosage  received 
during  the  time  of  decontamination  is 
computed   by    calling  the   routine   DECGN2. 

LINES    10  1    -     105 

The  2  -dim  ens  ion  al  array  D05E(i,j)  is  summed 
over  the  bodv  area  index  i  tc  qive  a  whole- 
body    dosage    for    each    agent    j. 

LINES    106    -     108 

If  the  decontamination  process  stretches  cut 
over  mere  than  one  interval  DELT,  The  average 
dose  for  each  DELT  Dericd  is  computed  and 
stored  in  the  array"  AGA. DECON. DOSE.  That 
array  will  be  used  to  update  the  dosage  in 
succeeding  iterations  until  decontamination 
is   complete. 

LINE    109 

If  decontamination  was  completed  befor 
T. CURRENT,  the  dosage  accumulated  is  added  tc 
AGA.CUMDOSE.  The  remaining  dosage  received 
between  T. DECON  and  T. CURRENT  will  be  calcu- 
lated  in   routines    DOSE1    or    30SS3. 
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CODS 


1  ROUTINE    DECON 

2  PRINT       1     LINE    THUS 
ROUTINE    DECON    CALLED 

3  DEFINE    I,     AG,    FLAG,     BODY. AREA    AND    CONTAM     AS    0- DIMENSIONAL , 

4  IHTEGEF    VARIA3LES 

5  DEFINE    T.FF.D,    U  1,  0  2  ,U3  ,  U4,    TEMP    AS    0-DIM  ENSION  AL  ,    REAL    V&RIAELES 

6  DEFINE    DECCN.DOSE,     DCSS2FASS,    AND    DEP    AS     1 -DIMENS ION AL,     REAL    ARRAYS 

7  DEFINE    DCSE    AS    A    2- DIMENSION AL.     REAL    ARRAY 

3  RESERVE    DEP<«),     DEP03(*),    DOSE2  PASS  (*)  ,     DECON.  DOSE  (*)     AS    N.  AGENT 

9  RESERVE    DC5E<*,')     AS    7    BY    N. AGENT 

10  LET    FLAG    =    0 

11  LET    CONTAM    =    0 

12  FOR    J    =     1    TO    N. AGENT,    DO 

13  LET    AG    =    J 

14  CALL  DEPOSITION  GIVEN  T. CURRENT,  T. CURRENT,  AND  AG 


15  YIELDING  DEP_(*) 

REGARDLESS'  IF    TA.IMPAIR(J)     IS    n6t    EQUAL    TO    0,    LET    FLAG    =    1 


16  LET    DEFOS  (J)     =    DEP(1) 

17  IF    DEFCS(J)     IS   GE    MIH. G.CHEH  (J)  ,    LET    CONTAM    =    1 


19  REGARDLESS  LOCP 

20  LIST  DEFCS 

2  1    TT^%r,n  FT  J* f* 

22  IF  FLAG  IS  EQUAL  TO  1,  GO  TO  DELAYED 

23  OTHERWISE  IF  CHEMSIT  =  2,  GO  TO  DECON. NOW 

24  OTHERWISE  LET  01  -  DISTRIE(  UPTR(*)  ) 

25  LIST    U1,     PC.IMH.DECON(SIDE) 

26  IF    L'1    IS     IE    FC.  IBH.  DECON  (SIDE)  ,     GO    TO    DECON.  MOW 

27  OTHERWISE 

28  LIST  CONTAM 

29  IP    CONTAH    IS    NOT    EQUAL    TO    1,    RETURN 

30  OTHERWISE    FOR    I    =    V    TO    7  ,    DO 

31  IF    PFA.CHEH(I)     IS    NOT    EQUAL    TO    PF. MAX (SIDE . I) 

32  LET    PFA.LEAK(I)     =    DI3TBIB (    D. PF. LEAK(SID£, I,*)     ) 

33  REGARDLESS    LCC? 

34  RETURN 

35  'DECON. NCW'     PRINT       1    LINE    THOS 
REACHED    'DECON.  NOW     IN    DECON    ROUTINE 

36  FOR    I   =     1    TO    1 .    DO 

37  LET    BODY. AREA    =    I 

38  IF    PFA.ChZM (I)     =     1 

39  CALL    DECON2    GIVEN     EODY.AREA    AND    DE?OS(*) 

40  YIELDING    DOSE2PASS(*»     AND    T.PF.D. 

41  FOR    J    -    1    TO    N. AGENT,     LET    DOSE  (I, J)     =    DOSE2PASSM1 

42  LET    U4    =    CISTRIB(     UFTR(*)     )  "  PF    LEAK 

43  LIST    04,     FC.  PF. LEAK  (SIDE,  li,    I 

44  IF     04    IS    LE    PC  .  PF  .  LEAK  (S I  DE  .  I) 

45  LET    FFA.LEAK(I)     =    DISTRI3(    D  .PF  .  LEAK  (SIDE,  I ,  *)     ) 

46  REGARDLESS 

47  IF    I    =    2  • 'MASK    LEAK 

48  LET    U3    =    DISTRI3<    UPTR(*)     ) 

49  LIST    03,    PC.  MSKLEAK  (SIDE) 

50  THEN    IF    U3    IS    LE    FC.  MSKLEAK(SIDE) 

51  LET    MASKLZAK  (SCLDIER)     =    DISTRIB(    D.  MSKLEAK  (S  IDE,  *)     ) 

52  REGARDLESS 

53  REGARDLESS  LOCP 

54  FOR    I    =     1    TO    7,     DO 

55  LET    EODY.AREA    =    I 

56  IF    PFA.CHEMfll    IS    NOT    EQUAL    TO    PF. MAX ( SIDE, I) 

57  CALL    DECON2    GIVEN     ECDY.AREA    AND    DEPOS{*) 

58  YIELDING    DOSE2PASS(*)      AMD    T.PF.D 

59  FOR    J    =    1     TO    N.  AGE  HI.    DO 

60  LET    DOSE  (I, J)      =    PFA.CHEM(I)     *    DOSE2?ASS(J) 

61  LOOP 

62  LET    U4    =    DISTRI3(     UPTR  (*)     )  •  '  PF    LEAK 

63  LIST    04,    FC.  PF.LEAK  (SIDE,  I) 

64  IF  U4  IS  LE  PC. PF.  LEAK  (SIDE,  I) 

65  LET  FFA.LEAK(I)  =  DISTRIB(  D.  PF.  LEAK  (SIDE,  I,  *)  ) 

66  REGARDLESS 

67  IF  I  =  2  •  'MASK  LEAK 

68  LET  U3  =  DISTRIEf  UPTR  (*)  ) 

69  LIST  U3,  PC. MSKLEAK  (SI  DEJ 

70  TbEN  IF  U3  IS  LE  PC. MS KLEAK  (SIDE) 

71  LET  MASKLEAK  (SOLDIER)  =  DISTHI3(  D. MSKLEAK  (SIDE,  *)  ) 

72  REGARDLESS 

73  REGARDLESS  LCCP 

74  GO  OUT 
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CODE 


75  'DELAYED'    PRINT       1    LIME     THUS 
REACHED     'DELAYED'     IN    DECON     ROUTINE 

76  LET    02    =    DISTRIE(    OPTH (*)    ) 

77  IF    CHE.1SIT    =    2,    LET    02    =    0 

78  REGARDLESS    LIST    U2 ,     PC.  DEL.  DSCO  N  (SIDE) 

79  IF    02    IS    IE    PC.  DEL.  DECON  (SIDE) 

80  FOR    I    =    1    TO    7,     DC 

81  LET    30DY.AREA    =    I 

82  CALI    DECCN2    GIVEN     EODY.AREA    AND    DEPOS (*) 

83  YIELDING    DOSE2PASS(*t      AND    T.PF.  D 

84  FOR    J    =    1    TO     N. AGENT,     LET    DOSE  (I, J)     =    DOSE2PA3S(J) 

85  LET    TA.PF.CKEM  (I)      =    T.CHEMCUSR    ♦    T.PF.D 
85  LET    T.CHSKC'JRR    =    T.CHEKCURR    ♦    T.PF.D 
87  LET    04    =    DISTRI3J     UPTR  (*)     )                                   •  •  PF    LEAK 
83  LIST    U4,    PC.  PF. LEAK  (SIDE,  lj_ 

89  IF  U4  IS  LE  PC. PF.  LEAK  (SIDE, I) 

90  LET  FFA.LEAK(I)  =  DISTRIB(  D  .PF .  LEAK  (SIDE,  I,  *)  ) 

91  REGARDLESS  IF  I  =  2 

92  LET  U3  =  DISTRIEf  U?TR  (*)  )  ''KASK  LEAK 

93  LIST  ' 


13  =  DISTRI2  (  U?TR  (*) 
U3,  PC.HSKIEMC  (SIDE) 
IF   03    IS    LE    PC.MSKLEJ 


94  THEN    IF   03     IS    LE    PC. MS KLEAK f SIDE) 

95  LET    MASKLEAK  (SOLDIER)     =    DIST3IB(    D.  HS  KLEAK  (S  IDE  ,*  )     ) 

96  REGARDIESS 

97  LOO? 

98  REGARDLESS 

99  'OOT'        LET    T . DECCN ( SOLD  I ER)      =    T.CHEMCURR 
100  LIST    T.  DECCN  (SOLDIER) 

10  1  FOR    J=1     TO    N.  AGE  NT,     DO 

102  LET    Tr. :;?    -    0 

103  ECS    I    •=    1    TO    7,     LET    TEHP'  =    rEME    +    DOSE  (I,  J) 

104  LET    DECCN. DOSE(J)     -    TEMP 

105  LIST    DECCN. DOSE  (J) 

106  IF    T.  CECCN  (SCIDIEP.)     IS    GT    T.  CURRENT 

107  LET    AGA.DSCON.DOSE  (J)     "-    D  ECO  S.  DOSE  ( J)  / 

108  (  (I.  DECON  (SOLDIER)  -TL)/DELT) 

109  ELSE  LET  AGA  .COaDOSE  ( J)  =  AG  A. COaDOSE ( J)  ♦  DECON. DOSE  (J) 
1  10       REGARDLESS  LCCP 

111  RETURN 

112  END  "OF    ROUTINE    DECON 
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The    Routine    CJCON2 


Eur pes  a : 
1 


Determines  how  many 
the  skin  and  clo 
da  ccntami  nation . 
time  to  deccntami 
T.D2CON.D  from  th 
multiple  agents  a 
repeatedly  multiol 
T.  CZCON.D. 
Computes  the  dosage 
t  animation  for  each 
case  of  crossing  a 
foot  where  the  P2 
prior  to  deccntam 
coaiouted  only  cvar 
Schedules  the  donn 
and  assigns  val 
TA.PF.CHEH. 
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AREA 

ARGUMENTS 


REAL 


DEP 

DC  SE  2  PASS 

T  .  PF  .  D 


(1-D) 
(1-D) 


ROUTINES 


DECON. DOS 
DISTRIE 

one 


LABELS 


DCN 
DCSECO^P 

NEXT 


TEMPORARY    ATTRIBUTES 


INTEGER 


CONTAMINATED 


This    attribute    indicates    if   there    is  -contami- 
nation  over    the   entire      surface  of   tha   PERSON 
or  his   collective    prot  action 
Values: 

0  -    No  contamination   ever   all    surfaces 

1  -    Contamination    present   on   all    surfaces 
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C? 


This    attribute   indicates   the  current    iev=i   of 
collective  protection    afforded  the    PERSON 
Values: 

1  -    &    vehicle    with      an    operating   overpressure 

syst  em 

2  -    A    vehicle    without    an   overpressure   system 

3  -    A    hunker    or    building 

4  -    A      foxhole,         with    or      without      temporary 

overhead   cover 

5  -    Nc   protection    (the    PERSON   is    in    the    open) 


DEFNUM 


This    attribute    gives    the   relative    defilade   of 

the    PERSON   at    any   given   time 

Values: 

1  -    in   a    foxhole 

2  -    pi one 

3  -    crawling 

4  -    kneeling    or    sitting 

5  -    standing 


VEH.  SYS.  TYPE 


This    attribute,       along    with    VEH. WPN . TYPE , 
used    to  identify   a   particular    vehicle   type. 
Value:    As    aiven"  above 


VEH.  WPN.  TYPE 


This    attribute,      along    with    VEH. SYS . TYPE  , 
used    tc  identify  a   particular    vehicle   type 
Value:    As    qiven    above 


TEMPORARY    ATTRIBUTES 


RE  AL 


T.CHC 


This    attribute    provides    the    time    at    which 
PERSON   assumed      his   current    level      of   cell 
protection f    if   he    went    into    CP    1,    2, 
this    iteration;    otherwise,    it    is 


tive 
3  dur 
time 
in  CP 
see  i 
Value 
0    -    i 


mg 

that    he   created    temporary   overhead    co 
4  or   5-       It    is      also    used   as    a    check 
f  temporary   overhead   cover   exists. 


f      no      overhead      cover 
PERSON    is    in   CP    1 ,         2, 
automatically   exists) 
The   time   as      given  above,      if 
exists. 


exists 
or    3 , 


(or 

where 


ec- 

or 

th  e 

ver 

to 


the 


overhead    cover 
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GIOEAL    VARIAELSS  INTEGER 

CHEMSIT 

t v-1'  55    y ar  i 'ibis   i  n  di cat  e s   'the    cu rr sr.t    situ at  ion 
facing  the   PERSON   during   this   iteration.      The 
value      is      determined    by      CHEM. CHECK      a-      the 
beginning   of    the   iteration   over  this    PERSON. 
Values: 

0  -    The  PERSON    is    stationary   and    has   not    bean 

directly   attacked      by  "(in      the    immediate 

effects      ellipse    of)  a   chemical      agent 
amnitio  n 

1  -    The   PERSON      is    in      the  immediate      effects 

ellipse   of    a   chemical   a  cent    munition.    He 
may   be    stationary   or   moving 

2  -    The  PERSON    is    moving    in   an  area    of    prsvi- 

cuslv  deposited   contamination.      There   is 
nc  airborne   agent    present 

3  -    The      PERSON    is      moving    in      an    area      where 

there   is  still  agent   in      the    air    (it   has 

net   all  dsDOsited   on   the      ground),      and 

has      not  been   directly      attacked      bv      a 

chemical  munition 

S.  AGENT 

This  variable  gives  the  maximum  number  of 
agents  that  will  be  used  in  a  given  scenario. 
Value:    As   given   above 


SIDE 


This    variable   is      used    to    store   the  value   of 

the    side   the    PERSON   is      on.      If   the  attribute 

COLOR    is    used,     SIDE   =    COLOR  (PERSON)  +    1 
Value:    COLOR  (PERSON)     +    1 


SCLDIER 


This    variable      is    used   to 

to   the   memory    location    of 

currently   being   checked    in    the   model. 

Value:    S0LDIER"=    PESSPTR  (    NAME  (PERSON)     ) 


conveniently    refer 
the    PERSON    which    is 


GIOEAL    VARIABLES  REAL 

CT.DECON  (4-D) 

This  arrav  provides  a  probability  distribu- 
tion from  which  the  time  it  takes  for 
emergency  immediate  decontamination  of  skin 
or  clothing  for  each  body  area  is  drawn. 
This  time  does  not  include  the  time  reguired 
to  don  protetive  clothing  after  decontamina- 
tion. 
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Dimensions:    N.SIDE   by    N. AGENT    by    7    bodv    arras 

by  3 

Values: 
1st    dimension:    The   side   of    the    PERSON 
2nd    dimension:         The        agent      concerned         (in 

multiple      agent      situations,         a      factor 

MULT.AG.DECON      will      provide      a      wav      of 

adjusting      the      overall      decontamination 

time) 
3rd    dimension:        The    body      area   concerned      (1 

through    7) 
4th    dimension: 

1  -   The    distribution   type 

2  -    The    first    parameter   of   the    distribu- 

ti  on 

3  -  The  second  parameter  of  the  distri- 

bution 

DT.PF  <4-D) 

This  array  holds  the  probability  distribution 
used  tc  determine  the* time  required  to  don  a 
given  item  of  chemical  protective  clothing, 
for    each    body    area.  The   temporary    variable 

T.PF.D   is   drawn    frcm      the    distribution;      wh=n 
added   tc    T.CHEMCURR,       this    yields    tne    time    at 
which    the   clothing    rfas    donned,      TA.  PF.  CHZi-I  (i) 
for    body   area   i. 
Dimensions:     N.SIDE   bv    3 
Values: 

1st    dimension:    The   side    of    the    PERSON 
2nd    dimension: 

1  -    The    distribution   type 

2  -    The    first    parameter   of   the   distribu- 

tion 
Tne    second  parameter      of    tne    distri- 
bution 


"3     - 


MIN.  G.CHSM  (1-D) 

This    array      provides    the      minimum    significant 
level   of      ground   deposition      for   each      aoent. 
If   the   deposition   is    below   this   value,      it   is 
treated  as   if   there  were    no    agent    present. 
Dimension:    N.  AGENT 

Values:      The      minimum    significant      deposition 
for   each   agent 

MOLT.  AG.  DECCN  (1-D) 

This  array  provides  a  means  of  adjusting  the 
time  it  takes  to  decontaminate  a  given  body 
area,  T.  DECON.D,  drawn  from  DT.DECON,  to 
allow  for  the  presence  of  more  than  one  agent 
on  the  skin.  If  there  is  a  second  agent 
present,        T. DECON.D      will    oe      multiplied     by 


MOLT.  AG.DECON  +:o  yield  the  time  required  to 
decontaminate  both  agents  simulataneously . 
If   there   are    three   agents,      T. DECON.D    will   be 


multiplied   by    MULT.AG.DECON    twice;    etc. 
Dimension:    N. AGENT 
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Value:        The    multiplication      factor    for      that 
agent 

PE.MAX  (2-D) 

This  array  provides  the  protection  factor  for 
the  item  that  provides  full  chemical  protec- 
tion for  a  given  body  area.  Implicitly,  this 
array  also  defines  the  maximum  protective 
(full  MOPP)  level. 
Dimensions:  N.SIDE  by  7 
Values: 

1st    dimension:    The   side   that    the    PERSON    is    on 
2nd    dimension:    The   orotacxion    factor    for   each 
tody   area,    as   explained  above 

PFA.CHEM  (1-D) 

This  array  provides  the  current  protection 
factor  for  each  of  the  seven  body  areas  of 
the      PERSON. Implicitly ,  this      arrav        also 

defines  the    current   protective    (MOPP) 'level. 

T.CHEMCURR 

This  variable  serves  as  a  counter  that  keeps 
track  of  the  time  at  which  the  last  action 
performed  cr  scheduled  to  be  oerformed  by  the 
PERSON   was   completed. 

TA.PF.CHEfl  (1-D) 

This  array  provides  the  time  that  the  currant 
level  of  "individual  chemical  projection  was 
denned,  for  each  body  area. 

RECURSIVE  VARIABLES  INTEGER 

AGENT 

This    variable   is   used    to      pass   the    agent   type 
as   an    argument    to   the    routine   DECON.DOSE,      an 
i uple nentati on    routine    written   to    perform   the 
actual   dosage   calculations. 
Value:      AGENT      =   The      iteration   index       j    (the 


FLAG 


agent   type) 


This  variable  is  used  as  a  flag  to  determine 
of  there  was  any  agent  deoosited  on  the  skin 
at   the  time    that    decontamination    commenced. 


239 


RECURSIVE    VARIABLES  REAL 

DCSECPASS 

This  variable  is  used  as  an  argument  to  pass 
the  dose  computed  by  the  routine  DECON. DOSE 
back  tc  the  calling  routine. 

T.CECON.  D 

This  variable  is  used  tc  store  the  time 
required  to  perform  decontamination  of  a 
given  body  area  for  a  single  agent  (or  as 
adjusted      by      MULT. AG. DECON ,  for      multiple 

agents)  . 

ERIE?    EXPLANATION    OF    CODE: 

LINES    7-10 

The  Calculation  cf  the  dosage  received  during 
decontamination  assumes  that  the  PERSON  is 
under  some  tyoe  of  cover  prior  to  decontami- 
nating so  that  he  will  receive  no  further 
contamination.  In  order  to  insure  this,  if 
overhead  cover  was  not  scuaht  or  created 
previously,  the  routine  OHC'is  called  with 
the  probability  of  seeking  overhead  ccvsr  eet 
at    1 "  (certainty)  . 

LINES    12-19 

Checks  to  see  if  there  are  multiple  agents 
causing  contamination  (or  any  -  it  is 
possible  for  a  person  to  susoect  contamina- 
tion where  none  is  present).  "For  the  first 
aaent ,  a  time  to  both  decontaminate  the  bcdv 
area  concerned  is  determined  based  on  the 
array  DT. DECON.  The  time  to  accomclish  the 
decontamination  of  that  body  area,  Tl DECON. D, 
is  added  to  T.CHEMCURR,  tne  current  simula- 
tion time.  For  multiple  agents, 
MULT.  AG. DECON  multiplies  T. DECON. D  to 
increase  the  total  time  required  to  deconta- 
minate . 

LINES    20    -    26 

If  the  body  area  is  less  than  5  and  we  are  in 
the  situation  where  the  PERSON  has  been 
crossing  a  contaminated  area  (CHEMSIT  =  2)  on 
foot  (  C?  =  5  )  ,  is  no4!  contaminated 
{CONTAMINATED  =  0)  ,  and  has  remained  up  until 
decontamination  was  begun  (  DEFNUM  =5  ), 
then  nc  dosage  is  assessed.  Otherwise,  the 
dosage  accumulated  during  the  decontamination 
of  that  body  area  for  each  aaent  is  computed 
in  the  sectioned  labeled  DOSECOMP. 
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INES    28    -    34 


The  routine  DECON.DOSE  is  called  to  compute 
the  dosage  received  during  decontamination 
for  a  given  aaent  and  body  area  (the  body 
area  was  supplied  as  an  argument  to  DEC0N2)  . 
The  dose  is  returned  by  the  arguement 
DOSECFASS,  and  the  array  ror  all  agents  is 
stored  in  a  temporary  variable  D0SE2PASS, 
which  is  passed  back  to  the  routine  EECCN  as 
an   argument. 


LINES    35    -    39 


If  decontamination  was  directed  (cail3d  by 
the  routine  DECON)  but  there  was  no  contami- 
nation present  (FLAG  =  0) ,  decontamination  is 
still  performed  and  T.CHEMCURR  is  updated  by 
a  value  T. DECON. D  drawn  from  the  distribution 
DT„DECCN..No    dcsaae   is    assessed. 


LINES    4  1-47 


After    a   body    area      has    been    decontaminated   it 
is   covered      by   a   chemical      protective    garment 
action      factor"    value      equal     to 


the  standard  item  of  protective  gear  for  the 
body  area  concerned  is  drawn  from  the  distri- 
bution DT.PF.  This  value  is  added  to 
T.CHEHCURR  to  vield  the  time  that  the  Drotec- 
tion  was  donned,  TA.  PF.CHEM  (i)  fi  =  the  body 
area)  and  then  T.CHEMCURR  is  updated  to  this 
latest  time.    The   level    of   Drotection    for    each- 


item    is   changed   to   the      level    of    fall    protec- 
tion   FE.MAX,    as    each    it' 


ftn    is   donned. 
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CODE 


1  ROUTINE    CECON2    GIVEN    AREA    AND    CEP    YIELDING   DOSE2PASS    AND    T.PF.D 

2  PRINT       1     LIN  Z    THUS 
ROUTINE    DECCN2    CALLED 

3  DEFINE    AREA,    AGENT,     J    ,FIAG    AS    0-DIMENSIONAL,     INTEGER    VARIABLES 

4  DEFINE    I.EECCH.E,    T.PF.D,    DOSECPASS    AS    0- DIMENSIONAL ,    REAL    VARIA3LSS 

5  DEFINE    DEP,     DCSE2PASS    AS     1-DIME NSIONAL,     REAL    ARRAYS 

6  RESERVE    DEP  (*)  ,     DOSE2PASS(*)     AS    N. AGENT 

7  IF    CP(SOLDIER)     IS   GE    4 

8  THEN     If    T.CHC  (SOLDIER)     IS    EQUAL    TO    0 

9  CALL    CHC    GIVEN    1 

10  REGARDLESS 

11  LET    FLAG    =    0 

12  FOR    J    =     1    TO    N.  AGENT,    DO 

13  IF    DEF  (J)     IS    GE    fl  IN  .  G  .  CKErt  (J  ) 

14  LET    T.DECCN.D     =    DISTRI3(     DT. DECON (S IDE, J , AREA, *)     ) 

15  IF    FLAG    =    0 

16  LET    FLAG    =     1 

17  ELSE    LET    T. DECON. C    =    .1  ULT  .  AG  .  DECON  (SIDE)     *    T.  DECON.  D 

18  REGARDLESS    LET    T.CFEMCURR    =    T.CHEMCURS    *■    T.  DECON.  D 

19  LIST    T. DECON. E,     J,     KULT  .  AG.  DECON  (SI  DE) 

20  IF     AREA    IS    LT    5 

21  THEN    IF    CHEMSIT    IS    EQUAL    TO    2 

22  THEN    IF    CONTAMINATED  (SOLDIER)      IS    EQUAL    TO    0 

23  THEN    IF    CP(SCLDIER)      IS    EQUAL    TO    5 

24  THEN     IF    D EFNU M (S CLDIEB)     IS    EQUAL   TO    5 

25  LET    DCSE2PA3S(J)     =    0 

26  GO    TO    NEXT 

27  REGASDLESS 

28  'DC3ECOi1F»     PSIKT       1     LINE    THUS 

REACHED    'DCSECCBE1    IN    ROUTINE    DECON2 

29  LET    AGENT    =    J 

30  CALL    EECCN.DOSS    GIVEN    AREA,     AGENT,     T. DECON. D,     AND    DEP(*) 

31  YIELDING    DOSECPASS 

32  LET    DC5E2FA3S  (AGENT)     =    DOSECPASS 

33  LIST    AREA.    AGENT,    DEP(AGENT),    DOSE2 PASS  (AGENT )  ,    T. DECON. D 

34  RZGAPDLESS    LCC? 

35  'NEXT'     PRINT       1     LINE    THUS    . 
REACHED    'NEXT'     III    RCUTIHE    DECON  2 

36  IF    FLAG    =    0 

37  LEI    T.EECCH.E    =     DISTRIE(    DT.  DECON  (SIDE ,  1  ,  AREA,  *)     ) 

38  LET    T.CHZ:«CURR    =     T.CHEKOUSR    +    T.  DECON.  D 

39  REGARDLESS 

40  LIST    T. DECON. D,    AREA,    T.CHEHCOBB 

41  'DON*     LET    T.PF.D    =    CISTRI3{     CT.  P  F(V  EH.  SYS  .TYPE  (SOLDIER)  , 

42  VEH.  MEN. TYPE  (SOLDIER)  , AREA,  *)     ) 

43  LET    TA. PF.CHFM  (AnEA)     =    T.CHEMCURR    +    T.PF.D 

44  LET    T.CHEMCUSR    =   T  A.  PP.  CHIH  (  ARE  A) 

45  LET    PFA.CHEM(AREA)      =    ?F .  SAX  (SID  E,  AREA) 

46  LIST    T.EF.D,     AREA,    T.CHEMCUEE 

47  RETURN 

48  END  "OF    ROUTINE    DECON2 
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9.      The    Routine    DEPOSITION 

Purpose: 

1.  Comcutes  the  ground  and  air  dosage  at  the 
given  location  of  interest  at  any  interme- 
diate time  within  DELT  using  a  linear 
apprcxima  tion. 

2.  Adjusts  the  deposition  received  en  ^he 
grcund  at  the  PERSON'S  location  to  the 
aosage  received  on  the  outer  layer  of  the 
PERSON'S  clothing  or  skin  based  on  the 
collective  protection  category,  and  the 
presence    of   overhead   cover. 

ARGUMENT  INTEGER 

AGENT 

ARGUMENTS  REAL 

DEP  O-D) 

T.END 

I,.  START 

SETS 

CREW  (1-D) 

LABELS 

BUNKER 
TEMPORARY    ATTRIBUTES  INTEGER 

CP 

This    attribute    indicates    the   current    level   of 
collective  protection    afforded   the    PERSON 
Values : 

1  -    A    vehicle    with      an    operating    overpressure 

system 

2  -    A    vehicle    without    an    overpressure   system 

3  -    A    fcunker    or    building 

4  -    A      foxhole,         with    or      without      temporary 

overhead   cover 

5  -    No   protection    (the    PERSON   is    in   the   open) 

OPEN.  CLOSED 

This    VEHICLE      attribute   tells    if      the   vehicle 

is  open  or   closed.        It      is    used   to   determine 

the    leakage      of   agent      into    the     vehicle,      by 

setting  an  index    in   SW .NBC. FILTER 

Value  : 

0    -    if  the  vehicle   is    open 
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1    -    if  the   vehicle   is    closed 

VEH.  NO 

This    attribute      consists    of   the      index    number 
used    to  identify   the      VEHICLE   that    the    PERSON 
is   on. 
V  al  u  e  * 

0   -    The  PERSON    is   not    on    a    vehicle, 
NUMBER  (VEHICLE)    that    t  ha    PERSON    is    on,    other- 
wise . 

VEH.SYS.TTFE 

This    attribute,      along    with    VEH. WPN.TYPE,      is 
used   to  identify   a   particular    vehicle    type. 
Value:    As  given   above 

VEH.WPN.TYPE 

This    attribute,      along    with    VEH. SYS. TYPE,      is 
used    to   identify   a   particular   vehicle    type. 
Value:    As  given  above 

TEMPORARY    ATTRIBUTE  REAL 

T.OHC 

This  attribute  provides  the  tiine  a—  which  the 
PERSON  assumed  'his  current  level  of  collec- 
tive protection,  if  he  went  into  CP  1,  2,  or 
3  during  this  iteration;  otherwise,  it  is  the 
time  that  he  created  temporary  overhead  cover 
in  CP  4  or  5.  It  is  also  used  as  a  chec!t  to 
see  if  temporary  overhead  cover  exists. 
Value  : 
0    -    if      no      overhead      cover      exists       (or      the 

PERSON    is    in   CP    1 ,         2,      or    3 ,       where   it 

automatically    exists) 
The    time   as      given   above,      if     overhead    cover 

exists. 

GIOEAL  VARIAEIES  INTEGER 

CLDCP 

This  variable  gives  the  value  for  the  most 
recent  collective  protection  cateqory  that 
the  PERSON  was  in,  if  he  changed  categories 
during  DELT.  It  is  set  equal  to  the  current 
CP  value  at  the  beginning  of  the  iteration  bv 
the  routine  UPDATE;  if  the  C?  category 
changes  for  any  reason,  the  old  category  is 
stored  in  OLDCP  for  the  remainder  of  the 
iteration  and  the  new  CP  cateaory  is  stored 
in  the  attribute  CP.  It  is  used  to  accurately 
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determine   the      reduction    in      concentration   o: 
deposition   caused   by   the   CP . 
Value:    As   given  above 


SCLDIES 


This    variable      is    used   to      conveniently    refer 
to   the   memory    location    of   the   PERSON    which    is 
currently   being   checked    in    the   model. 
Value:    SOLDIER    =    PERSPTR  (    NAME  (PERSON)     ) 


VEH.  PTR 


(1-D) 


This  array  is  used  to  store  the  pointar  to 
the  memorv  location  where  the  u temporary 
entity  VEHICLE   and   its    attributes    are   stored. 


G10EAL    VARIABLES 


REAL 


DELT 


The  variable  DSLT  is  a  us sr- supplied  Cc.ram- 
eter  that  gives  the  time  interval  between 
iterations  of   CHEM. CHECK. 


DEP.  A.CURR 


(1-D) 


f^thl 


This    array _     holds    the    current   values #    for   the 

concentration    c  f      a^atcfs4       i"    the    ai 

height  of   2      metersf      at    the   ioca'tion 

PERSON. 

Units:    mg   /    cubic    meter 

Dimension:    N. AGENT 

Values:    As   given    above    for    aach  agent 


DEP. A. OLD 


(1-D) 


This    array      holds   the    most    recent      values    for 

the    concentration    of    agent  (s)       in    the   air    (at 

a   height   cf    2   meters)       at   the   location   of   ^he 

PERSON. 

Units:    mg   /    cubic    meter 

Dimension:    N. AGENT 

Values:    As   given   above    for    each  agent 


DEP.G.CURR 


(1-D) 


This    array      holds   the    current    values      for   the 

deposition  on      the    ground   at    the      location    cf 

the    PERSON. 

Units:    mg/  sq.    cm 

Dimension:    N. AGENT 

Values:    As  given   above    for    each  agent 


DEP.  G.  OLD 


(1-D) 

2U5 


This    array      holds   the    most    recent      values   for 

the   deposition   on    ths      ground   at    the   location 

of  the   PERSON.      This    information    was    obtained 

during   the   last   iteration   of   the   model. 

Units :    mg/   sq.    cm 

Dimension:    N.  AGENT 

Vaiuest   As  "riven   above    for    rach  s<renv 

DEF.  RED  (3-D) 

This  array  provides  the  conversion  factor  to 
convert  the  deposition  of  liquid  aaent  or  the 
concentration  "of  airborne  aaent  outside  of 
the  PERSON' s  collective  protection  to  the 
effective  concentration  inside  the  crotaction 
or  on  the  PERSON.  It  is  multlolied  bv 
DEP.A.CURR  (The  first  element  in  the  last 
dimension)  and  by  DEP.G.CDRR  (The  second 
element)  to  yield  tne  effective  ccncntraticns 
and  depositions  inside  the  collective  protec- 
tion, resDe ctiveiy.  It  is  used  only" for  C? 
categories* 3 .  4  ana  5  „  (CP  categories" 1  and  2 
are  represented  by  SW.  BREATHING)  . 
Dimensions:  N.  AGENT  by  3  by  2 
Values: 
1st    dimension:         The      indices      represent      the 

various    aoents 
2nd    dimension:         Tne    indicices      indicate      the 
three  non-vehicular      decrees    of      collec- 
tive  protection.    They    are: 

1  -    Bunker  or   building     (C?=3)    or    foxhole 

(CP=4)         with        temporary      overhead 
cover    (T.OHC    not    equal   to    zero) 

2  -    Foxhole   with    no    overhead    cover 

3  -    In    the      open     (CP  =  5)         with    temporary 

3rd    dimension: 

1  -    The      fraction      used   to      convert      the      air 

concent  rat  ion 

2  -    The   fraction      used   to      cenver    the      ground 

deposit  ion 

SW. NBC. FILTER  (6-D) 

This  array  provides  the  amount  of  leakage  of 
agent  through  a  vehicle,  expressed  as  a 
percentage  or  the  outside  concentration.  It 
is  used  to  convert  the  concentration  of  aaent 
in  the  air  and  deposition  of  agent  on  ' the 
exterior  of  the  vehicle  to  an  equivalent 
concentration  and  deposition  inside  the 
vehicle.  The  temporary  variable  PAX  is  used 
to  store  whether  or  not  the  PERSON  is  crew  or 
passenger  on  the  vehicle;  the  temporary  vari- 
aole  HATCH  is  used  to  distinguish  between  a 
vehicle  with  overpressure  working  (CP=1),  a 
vehicle  without  overpressure,  closed,  and 
either  vehicle  open  (CP=2)  . 
Dimensions:       N. VEH. SYS .TYPE    by    N. VEH. WPN .T YPE 

by  2    by    3    by    2   by    N. AGENT 

Values: 
1st    dimension:    The    VEH. SYS. TYPE   of    the    PERSON 
2nd    dimension:    The    VEH.  WPN.  TYPE  of    the    PERSON 
3rd    dimension;    PAX 

PAX    =    1    if    PERSON    belongs   to    a    set    CREW 
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FAX   =   2    if   the  PERSON    does  not    belcr.a    to 

a    set    CREW 
4  th    dimension:    HATCH 

HATCH  =    1    if   CP      =1     (vehicle    with    ooer- 

ating   overpressure   system) 
HATCH        ="         2         if  CP  2        and 

OP  EN. CLOSED (VEHICLE)       =       1     (vehicle 

without    overpressure;    closed 
HATCH    «    3    if    OPEN.CLOSED(VEHICLE)     =    0 
5th    dimension:    State  of   agent 

1  -   for    liquid  agent 

2  -    for    vapor   or" aerosol 
6th    dimension:    The   agent    type 


T. CURRENT 


This      variable    gives      the   current      simulation 
time    within    the    main    combat    model    callinq   the 
chemical   effects   rcutir.es. 
Value:   The  time   as   given    above 


TL 


This      variable      gives        the      simulation      time 
withir.   the   main      combat   model    at    the      time   of 
the    last    iteration. 
Value:   The  time   as  given    above 

RECURSIVE    VARIABLES  INTEGER 

HATCH 

This  variable  is  used  to  determine  the  index 
on  the  array  SW.NBC.  FILTER  4th  dimension.  It 
is  set  equal  to  one  if  the  C?  equals  1 
(vehicle  with  operating  overpressure  svstea) 
It  is  set  equalto  two  if  the  CP  equals'  2  and 
OPEN.  CLOSED  (  VEHICLE)  equals         1  (vehicle 

without  overpressure;  closed).  It  is  set 
equal    to    3    if    OPEN .CLO SSD  (VEHICLE)     equals    0. 

PAX 

This  variable  is  used  to  determine  the  index 
on  the  array  SW.NBC. FILTER  3rd  dimension.  It 
is  set  equal  to  one  if  the  PERSON  belongs  to 
a   set    CREW.  It    is   set    eaual   to      two    if   the 

PERSON   does    not    belong   to   a   set  CREW. 

RECURSIVE    VARIABLES  REAL 

DEP.CURR  (1-D) 

This  array  is  used  to  store  the  values  for 
the  grcund  deoosition  and  air  concentration 
at  the  location  of  the  PERSON  measured  the 
time  LEND. 
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Dimension:    2 

Values: 

1  -    The  ground    deposition   at   time    T.END. 

2  -    The  air    concentration   at   time   T.END. 

DEF.OLP  O-D) 

This    array      is    used   to      store   the      values    for 
the    ground      deposition   and      air   concentration 
at  tne     location   of      the    PERSON      measured   the 
time    I.  ST  ART. 
Dimension:    2 
Values : 

1  -    The  ground    deposition   at   time    T. START. 

2  -    The  air    concentration   at   time    T. START. 

BRIEF    EXPLANATION    OF    CODE: 

LINES    7-9 

These  lines  compute  the  starting  deposition 
a  **  d  cor  c  er  t  r^4  ic-1  w  h  sn  t  ^  a  c"1*  a  — ~  *  r  or  time 
argument  (T.  START)  is  egual  to  the  startina 
time    of  the    iteration     (TL) . 

LINES    10    -     14 

These  lines  compute  the  starting  deposition 
and  concent  rat  ion  when  the  starting  time 
a rcr umert  f  T  •  S  T  A  RT  ^  is  not  the  starting  **  ime 
ofthe   iteration    (TL)" . 

LINES    15    -     17 

These    lines    compute  the      final    deposition    and 

concentration      when  the      final   time      araument 

(T.END)  equals  the  ending  time  of  the  itera- 
tion    (T. CURRENT)  . 

LINES    18-21 

These    lines    compute  the      final   deposition   and 
concentration      when   the      final   time      argument 
(T.ENE)      is    not      equal   to   the    ending      time   of 
the    iteration    (T.  CURRENT). 

LINES    23    -    68 

The      routine        next      checks        the      collective 

>erson    by    checkina 

the    CP    category 

„g  DELT,   the  eld 

in   this  variable,   and  it 

will  be  updated  to  the  new  CP  category  before 

it  is  called   a  second  time  by   DOSE2  or  DOSE 

3. 
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LINES    23    -    44 
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LINES   45   -    50 


If  the  OLDCP  is  three,  the  person  is  in  a 
bunker.  The  array  DEP.RSD  is  used  to  calcu- 
late the  reduction  in  deoositicn  afforded  by 
the  bunker.  The  value  in  DEP.RED  represents 
the  percent  of  the  unadjusted  ground  deposi- 
tion will  penetrate  into  the  collective 
protection. 


LINES    51-52 


If  the  OLDCP  is  four  (foxhole),  a  check  is 
made  tc  determine  if  the  foxhole  has  tempo- 
rary overhead  cover  (T.OHC  not  equal  tc  zero, 

assumed).  If  it  has,  it  is  assumed  tc  prcvid'e 
the  same  decree  of  chemical  protection  as  a 
bunker,  and  the  dose  is  computed  accordingly. 


LINES  53-5 


If  there  was  no  overhead  cover,  a  different 
value  from  DEP.RED  is  multiplied  by  the 
average  around  deposition  to  giva  the  deposi- 
tion   en  the    PERSON   in    the    foxnole. 


LINES    59    -    64 


If  the  OLDCP  is  not  one,  two,  three,  or  four, 
it  must  be  five  which  indicates  that  the 
PERSON  is  in  the  open.  A  check  is  made  to  see 
if  temporary  overhead  cover  has  been  assumed 
(T.OHC  not  equal  to  zero).  If  it  has,  the 
third  index  in  the  second  dimension  of 
DEP.RED  is  used  to  find  the  amount  of  agent 
that    has   penetrated  under   the   cover. 
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LINES   65    -    68 


If   no    cover    has    been   assumed,  no    adjustment 

is   made  to  the   deposition   -    the  deposition   on 

the      ground      at      the        PERSON'S  location      is 

assumed  to  be      the   same    as    that  found   en   the 

PEBSON.  and  the  average  of  the  eld  and 
current  depositions  will  oe  used  to  find  the 
dosage   received. 


CODE 


1  ROUTINE    DEPOSITION    GIVEN    T. START.    LEND,     AND     AGENT    YIELDING    CEP 

2  DEFINE    T.3TAFT     AND    T.END    AS    0-D IM ENS  ION A L ,     HEAL    VARIABLES 

'3  DEFINE    AGENT.     HATCH,    PAX    AS    0-D  IMEN3IONA  L ,     INTEGER    VARIABLES 

4  DEFINE    DEF,    CEP. OLD.    AND    CEP. CURS    AS     1-DIHENSIONAL,    REAL    VARIABLES 

5  PRINT    2     LINES    WITH     T. START,    T. END,     AND    AGENT    THUS 

ROUTINE    DEECSITICN    CALLED    GIVEN    T. START    =    ***.***,     T.END    =    ***.*** 
AND    AGENT    =     ** 

6  RESERVE     CEF(*>,     CEP.CLD(*),     AND     DEP. CURR  (*)     AS    2 

7  IF    T. START    IS    EQUAL    TO    TL 


8  LET    DEF.GLC(I)     =     DEP  .  G  .OLD  (A  GENT) 

9  LET    DEF.CLC(2)     =    DEP  .  J!  .OL  C  (A  GEN  T) 


10  ELSE    LET    DEP.0LD(1)      =     {  (DEP. G.C URR  (AGENT1  -DEP. G. OLD (AGENT)  )     * 

11  (  (T.ST  APT-TL1/DELT)  1      *    DEP.  G  .OLD  (AGENT) 

12  LET    DEF.OLD{2)     =     ( (DE  F.  A.  C'JR  R  (  AGENT)  -DEP  .  A.  OLD  (AGENT)  )     * 

13  (  (I.START-TL)  /DELT)  )     *■    DE  F.  A  .  OLD  (AGENT) 

14  REGARDLESS 

15  IF    T.END     IS    EQUAL    TO    T. CURRENT 

16  LET    DEP.CUEBH)     =    DEP.G. CURR  (AGENT) 

17  LET    DEF.CUPR(2)     =    DEP  .  A.CUE2  { AG  SNT) 

18  ELSE    LET     CEP.CUSRM)     =     (  (EZ?  .G.  CUP.  3  ( AGENT)  -DEP  .  OLD  ( 1 )  )     * 

19  ((T.SND-1. START)  /  (T.  CURRENT- 1.  START)  J  )     *    DEP.OLDM 

20  LET    DEF.  CURR  (2)     =     (  (DIP.  A.C'JRR  (AGENT). -DSP.OLD  (2)  )     * 

21  (  (T.SND-T. START) /(T.CURRENT-T. START))  )     «•    DSP.OLD(2) 

22  REGARDLESS 

23  IF     (CLDCP    =    1)     CR    (OLDCP    =   2) 

24  LEI  HATCH  =  3 

25  IF  OPES.CLCSEDf  VEH.PTR(  VEH .  HO  (SOLDIER)  )  )  =  1 

26  IF  CLDCP  =  1 

27  LET  HATCH  =  1 

28  ELSE  LET  HATCH  =  2 

29  REGARDLESS 

30  LIST    VEH. NO  (SOLDIER)  .HATCH, OLDCP, OPEN. CLOSED  (    VEH.  PTR<    VEH.  NO  (SOLDIER)     )) 

31  REGARDLESS    IF    SOLDIER    IS    IN     A    CREW 

32  LET    PAX    =     1 

33  ELSE  LET  FAX  =  2 
3U  REGARDLESS 

35  LIST  PAX 

36  LET    DEPM)     =     ((DE  P.  C  UER  (1 )  «-D  EP.  OLD  ( 1)  )  /2)     * 

37  SW  .NEC. FILTER {VEH. SYS. TYPE(SOLDIER)  ,  VEH.  WPN  .TYPE  (SOLDIER)  , 

38  FAX, HATCH,  1  ,  AGENT) 

39  LET    DEP(2)     =     ({DEP.  CURR  (2)  +  DEP.  OLD  (2)  )  /2)     * 

40  SW  .SBC. FILTER (VEH. SYS.  TYP S (SOLDIER)  , VEH. WPN .TYPE  (SOLDIER)  , 

41  FAX, HATCH, 2, AGENT) 

42  LET    OLDCP    =    CP(SOLDIER) 

43  "LIST    CEP 

4  4  FETURN 

45  OTHERWISE    IF     (OLDCP    =    3) 

46  'BUNKER'    LET     CEP(1)     =     (  fDEP  .  CURR  (11  +DEP.OLD  (  1 )  )  /2)     *    DEP  .  RED  (AGENT,  1  ,  1) 

47  LET    DEP(2)     =     ( (  DEF.  CURR  (2)  +D  EP.  OLD  (2)  )  /2)     *     DEP.  RED  (  AGENT,  1  ,2  ) 

48  LET    CLCCF    =    CP(SOLDIER) 

49  • 'LIST    CEP 

50  RETURN 

51  OTHERWISE    IF     (CLDCP    =    4) 

52  IF    T.OHC  (SOLDIER)     IS    NCT    EQUAL    TO    0,    GO    TO    BUNKER 

53  OTHERWISE 

54  LET  DEPM)  =  ( (D  EP.  CU  PR  (1 ) +D  EP.  OLD  ( 1 )  ) /2)  *  DEP.  RED  (AGENT,  2,  1] 


54  LET  DEPM)  =  ( (D  EP.  CU  PR  (1 ) +D  EP.  OLD  ( 1 )  ) /2)  *  DEP.  RED  (AGENT,  2,  1) 

55  LET  DEFJ2)  =  j(DEP.  CURR  (2)  «-DEP.  OLD  2  j /2  j  *  DEP. RED  (AGENT,  2,2) 

56  LET  OLDCP  =  C^(SOLDIER) 

57  "LIST  CEP 

58  RETURN 

59  OTHERWISE  IF  T.  CHC  (SOLDIEH)  IS  NOT  EQUAL  TO  0 

60  LET  DEP(1)  =  ((DEF.CURR(I)  +DEP.OLDM)  )  /2)     *    DEP.  RED  (AGENT,  3,  1) 

61  LET  DSF(2   =  ](D£ P.  CURR  (2) +D EP.  OLD  (2)  /2)  *  DEP. RED  (AGENT,  3,2) 

62  LET  OLCCP  =  CP(SOLDIER) 

63  "LIST  CEP 

64  RETURN 

65  OTHERWISE    LET    DEPM)     =     ( DEP.  CUR  R  ( 1)  +DEP.  OLD  ( 1)  )  /2 

66  LET    DEP(2)     ■     (DEP  .CURB  (2)  +DE  P. OLD  (2)  )  /2 

67  "LIST    CEP 

68  RETURN 

69  END  "OF    ROUTINE    DEPOSITION 
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10.      The  Routine   DOSE1 


Purpose: 
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ROUTINES    CALLED    BY    DOSE1 


DCSE2 


TEMPORARY    ATTRIBUTES 


REAL 


T.CECON 


This    attribute      gives    the      time   at      which   the 
process  of  decontamination   was   completed,      to 
include  the    donning  of      full   chemical    orct ac- 
tion   after    decontamination. 
Value:   The   time   as  given   above 


T.MASK 


This    attribute      stores    the    time   at      which   the 
PERSON   finished   donning   his    protective    mask. 
Value:    The   time   as   given   above 


GIOEAL    VARIAELES 


INTEGER 


N. AGENT 


This      variable 

agents  tha 

Value:    As   aiven   above 


aole    gives 
t    will   be   i 


the      maximum    number      of 
sed    in    a    given    scenario. 


SOLDIER 


This    variable      is    used   to      conveniently    refer 
to   the   memory  location   of   the    PERSON    which   is 
currently    being   checked   in    the   model. 
Value:    SOLDIER    =    PERSPTR(    NAME  (PERSON)     ) 
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GLOEAL    VARIAELES 


REAL 


AGA.CUJ1DOSE 


(1-D) 


This  array   holds  the   accumulated  IV   dosage 
for  each  agent. 
Dimension:  N. AGENT 

Value:  The  dosaoe  in  mg  accumulated  up  to  the 
current  time 


AG  A.  DECON.  COSE 


(1-D) 
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DEP.  A.CURR 


(1-D) 


This    array_     holds    the    current   values 

concentration    of      agan't(s)       in   th°    a; 

height   of    2      meters)       at    the    xocatic: 

PERSON. 

Units:    ma   /    cubic    meter 

Dimension:    N. AGENT 

Values:    As   given    above    for    each  agen" 


or  T.he 
"  (at*  a 
ot   the 


DEP.G.CURR 


(1-D) 


This    array      holds   the    current   values      for    the 

deposition  on      the   ground   at   the      location   of 

the    PERSON. 

Units:    mg/  sq.    cm 

D  im  e  n  s  ion  :    N  .  A  G  EN  T 

Values:   As  given   above    for    each  agent 


MIN.  A.  CHSM 


(1-D) 


This  array  provides  the  minimum  significant 
level  of  air  concentration  for  each  aaent. 
If  the  concentration  is  below  this  value;  it 
is  treated  as  if  there  were  no  agent  present. 
Dimension:    N. AGENT 

Values:   The    minimum  significant   concentratiqn 
for   each   agent 


MIN.  G.  CHEM 


(1-D) 
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This    array      provides   the      minimum    significant 
level   of     ground   deposition      for   each      agent. 
If  the  deposition   is    below   -his   value  f      it   is 
treated  as   if   -here   were    no    agent    present. 
Dimension:    N.  A  GENT 
Values:      The      minimum    significant      deposition 


for    each   agent: 


T. CURRENT 


This      variable    gives      the   current      simulation 
time    within    the    main    combat    model    calling   the 
chemical   effects   routines. 
Value:   The   time  as  given   above 

TA.PF.CHEM  (1-D) 

This  array  provides  the  time  -hat  the  current 
level  of  individual  chemical  protection  was 
donned,   for    each   body    area. 

TI 

This      variable      gives        the      simulation      time 
within  the   main      combat    model    at    the      time   of 
the    last    iteration. 
Value:    The   time   as   given    above 

RECURSIVE   VARIABLE  INTEGER 

CCNTAM 

This  variable  serves- as  a  flag  to  determine 
if  there  is  anv  chemical  agent  present  (on 
the  ground  or  in  the  air)  at  tne  PERSON'S 
location. 

RECURSIVE    VARIABLES  REAL 

I.  INT 

This  variable  serves  to  store  the  value  of  an 
intermediate        time  between        T.OLD  and 

T. CURRENT,    if   any. 

T.OLD 

This  variable  is  used  to  store  the  value  of 
the  beginning  of  a  time  interval  for  dose 
computations.  It  is  equal  to  TL  is  decontami- 
nation did  not  end  during  DELT;  equal  to 
T.DECCN  if  decontamination  did  finish  durina 
DELT. 


253 


SBIEF  EXPLANATION  OF  CODE: 

LINES  5-9 

The  initial  check;  provides  a  means  of 
bypassing  this  routine  in  cases  where  the 
individual  is  not  in  an  area  of  chemical 
hazard  or  contaminated  as  of  the  current 
time,  T. CUR  RENT.  If  he  is  facina  either  a 
ground  or  airborne  hazard,  the  routine  must 
compute  the    dose   received    from   that    hazard. 

LINES    10    -    13 

Checks  to  see  if  decontamination  was  being 
performed  in  the  DELT  interval  of  interest, 
and  has  not  yet  been  completed.  If  it  was, 
the  dose  for  the  interval  has  been  computed 
by  the  DECON  routine,  and  the  dose  to  be 
accumulated  during  DELT  is  stored  in  the 
array  AGA.DECCN.DOSE.  The  DOSE1  routine  will 
update  the  accumulated  dc^e  bv  adding  the 
amount  in  AG  A. DECON. DOSE  to  the  value 
contained  in  the  array  AGA .COMDOSE  for  each 
agent. 

LINES    14    -     15 

initializes    T.GID,    T.  INT 

LINE    1b 


If 

he 


decontamination  had  been  completed  durinq 
last  DELT  seconds,  the  routine  will 
adjust  the  dose  computation  for  the  period 
since  decontamination  was  completed  by 
setting  the  beginning  of  the  interval  over 
which  the  dose  is  to  be  computed,  T.OLD,  to 
the  time  decontamination*  was  completed, 
T.DECCN. 


LINES    13    -    26 


Checks  to  see  if  masking  or  donning 
individual  items  occurred  during  the  DELT 
period  of  interest.  If  masking  or  dcnnina  an 
item  had  been  completed  during  the  DELT 
period,  dosage  calculations  are  performed  at 
the  eld  levei  of  protection  until  the  new 
level  was  completely  assumed,  then  at  the  new 
level  cf  protection.  The  variable  T.INT  is 
used  to  split  up  the  interval  into  two;  each 
with    a   different   level    of   protection. 
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LINES    22   -    24 

Checks  to  see  if  two  or  more  events  occurred 
during  DELT;  if  they  havs,  the  dosage  is 
first  computed  over  the  interval  T.OLD  to 
T.INT.  then  T.OLD  is  assigned  the  value  I.  INT 
so  the  remaining  lines  will  commute  -he 
remaining  dosaaa  -  that  received  after  the 
original   time   T.INT. 

LINES    23;    28;    29;    30 

The  routine  calls  the  DOSE2  routine,  which 
actually  computes  the  dosage  received  during 
appropriate  interval  and  assigns  the  cumula- 
tive dose  to  the  array  AGA.CUttDOSE  for  each 
agent.  Both  inhalation  and  percutaneous 
dosages  are  considered,  and  converted  to  an 
eauivalent  intravenous     (17)     dose    by    DOSE2. 


CODE 


1  ROUTINE    EOSE1 

2  DEFINE    I.CLD    AND    T.INT    AS    0-DIH ENSIONAL,     SEAL    VARIABLES 
.3  DEFINE    CCNTAH    AS    A    0 -DIM ENSIONA L,     INTEGER    VARIABLE 

4  PRINT        1     LINE    THUS 
ROUTINE    DOSE1     CALLED 

5  FOR    J    =     1    TC    N.  AGENT.    DO 

6  IF    DEP.G.CUER  (J)      IS    Gc    MIN.  G  .  CHEM  ( J)  .     LET    CONTAM    =     1 

7  RSGAPDLSSS    IF    DEP  .  A  .  C  CRP  ( J)     IS    GS    HIS.  A.  CHE  B  (J)  ,     LET    CONTAM    =     1 

8  REGARDLESS    LCCP 

9  IF    CONTAM    =    0-     RETURN 

10  OTHERWISE    IF    T.  CECON  (SOLDIER )     IS    GT    T. CURRENT. 

11  FOR    J     =     1    TO     N.  AGENT,     LET    AG  A.  CUilDOSE  (o)     -    AGA.  CU  tlDOS  E  (J) 

12  4-     AGA- EICON.  DOSE  (J) 

13  RETURN 

14  OTHERWISE    LET    T.INT     =    0 

15  LET    T.OLD    =    TL 

16  IF    T.DECCN  (SOLDIER)      IS     GT    TL,    LET    T.OLD    =    T.  DECON  (SOLDIER) 

17  REGARDLESS 

18  I?  (T.  MASK  (SCLDIER)  IS  GT  T.  OLD)  AND  (T.MAS  K  (SOLDIER)  IS  LT  T.  CURRENT) 

19  LET    I. INI    =    1. HAS  K  (SOLDIER) 

20  REGAPDLESS    FOR    I   =     1    TO     7,    DO 

21  IF     (TA.PF.CHEH(I)     IS    GT   T.OL  D)  AND  (TA.  PF.  CHEM  (I)     IS    LT    T.  CURRENT) 

22  IF    I. INT    IS    NOT    SOUAL    TO    0 

23  CALL    DCSE2     GIVEN    T.OLD    AND    T.INT 

24  LET    T.OLD     =    T.INT 

25  REGARDLESS   LET    T.INT    =    TA . PF  .CHEM ( I) 

26  REGARDLESS    LCCP 

27  IF    T.INT    IS    NOT    EQUAL   TO    0 

28  CALL    DCSE2    GIVEN     T.OLD    AND    T.INT 

29  CALL    DCSE2    GIVEN    T.INT    AND   T. CURRENT 

30  ELSE    CALL    DOSE2    GIVEN    T. CID    AND    T. CURRENT 

31  REGARDLESS 

32  RETURN 

33  END  "O?    RCUTISE    DOSE1 
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1  1 .       Th €  Ro u tin e    EOSE2 
Purpose : 


The    DCSE2   routine   computes      the 
durinq     the    interval      oassed   to 


dosa  received 


routine  DOSE1  under  ?ach  of  the  following 
circumstances: 

1.  No  action  was  taken  during  the  given 
interval  that  would  have  affected  the 
PEBSON's    chemical   protective  status,    or 

2.  The  PERSON  changed"  his  collective  protec- 
tion status    during    DELT. 

ARGUMENTS  REAL 

T.ZND 
T.  START 

ROUTINES    CALLED    BY    DOSE2 

DEPOSITION 
DCSE. COMPUTE 

LABELS 

OUT 
TEMPORARY    ATTRIBUTES  REAL 

T.CP 

This  attribute  provides  the  time  at  which  the 
PERSON  assumed  his  current  level  cf  collec- 
tive   protection. 

Value:   The  time   as   given   above 


T.OHC 


This  attribute  provides  the  time  at  which  the 
PERSON  assumed  his  current  level  cf  collec- 
tive protection,  if  he  went  into  CP  1,  2,  or 
3   during   this   iteration;    otherwise,    it    is   the 

cover 
ick  to 


Value : 

0   -    if     no      overhead      cover      exists       (or      the 

PERSON    is    in   CP    1 ,         2,      or    3,       where    it 

automatically   exists) 
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The   time   as      given  above,      if     overhead    cover 
exists. 

GIOEAL    VARIAELES  INTEGER 

N. AGENT 

This  variable  gives  the  maximum  number  of 
agents  that,    will   be   used    in    a   given    scenario. 

Value:    As   given   above 

SCLDIES 

This  variable  is  used  to  conveniently  refer 
to  the  memory  leca-ion  of  the  PERSON  which  is 
currently    being    checked   in    the   model. 

Value:    SOLDIER    =    PERSPTR{    NAME  (PERSON)     ) 

EEIEF    EXPLANATION    OE    THE    CODE: 

LINES    9-11 

The  routine  first  checks  to  see  if  the 
collective  protection  category  (CP)  changed 
d  ur  i  n  c  the  i  ?*  e  rv  al  passed  to  it  '  ± »  ST  A  Prr>  t  o 
T.ENDf  from      the1       routine      D0SE1.         "The 

DEPOSITION  routine  is  called  for  the  interval 
I. START  to  T.C?  (the  tine  that  the  collective 
protection   category  was   changed)  . 

LINE   12 

The  dosage  is  computed  by  calling  the  routine 
DOSE. COMPUTE,  which  is  a  routine  that  was 
written  for  the  STAR  implementation  to 
perform  the    actual   dosage   computations. 


LINES    13    -    15 


The  DEPOSITION  routine  is  called  again  and 
the  remaining  dosage  computed  by  calling  the 
routine  DOSE. COMPOTE  for  the  interval  T.CP  to 
T.END. 


LINES  17  -  25 


Chanaes  in  the  overhead  cover  category,  indi- 
cated by  a  T.OHC  (the  time  overhead  cover  was 
assumed)  within  the  interval,  are  handled  in 
an   identical    manner  to    lines    10-16    above. 
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LINES    26    -    28 


If  there  had  beer,  no  changes  in  protection 
status  during  the  interval,  the  DEPOSITION 
routine  is  called  fcr  the  sntire  interval 
T.STAB1  to  T.END  and  the  dosage  is  computed 
by  calling  the  routine  DOSE. COMPUTE  for  the 
entire   interval. 


CODE 


1  ROUTINE    DOSE2    GIVEN    1.  START     AND    LEND 

2  DEFINE    T. START     AND    T.END    AS    0-     DIMENSIONAL,     REAL    VARIABLES 

3  DEFINE    AG    AS    A    0-    DI  TIE  NS  ICNAL,     INTEGER    VARIABLE 
U  DEFINE    DEP    AS    A    1- D IHESS IONA L,     REAL    ARRAY 

5  RESERVE    DE?  (*)     AS    2 

6  PRINT       1     LINE    KITH    T. START    AND    T.END    THUS 

ROUTINE    DOSE2    CALLED    GIVEN     T. START    =    ***.***    ,    T.END    =    ***.*** 

7  FOR    J   =     1    TC    N.  AGENT,    DO 

8  LET    AG    =    J 

9  I?(T.CE(SC1SIER»     IS    GT    T.  STA  RT]     MUD    (T.CP  (SOLDIER)     13    LT    LEND) 

10  CALL    DEPOSITION    GIVEN    T.START,    T.  CP  (SOLDIER)  ,     AND    AG 

11  YIELDING    DEF(*) 

12  CALL  DCSE. COMPOTE  GIVEN  T. START,  T .  CP  (SOLDI  EH)  ,  AG,  AND  DEP(*) 

13  CALL  DEPOSITION  GIVEN  L C P  (SOLDIER)  ,  T.END,  AMD  AG 
1U  YIELDING  DEF(*) 

15  CALL  DOSE.  COMPUTE  GIVEN  T  .  C?  (SOLDIE  R)  ,  T.END,  AG,  AND  DEP  (*) 

15  GC  CUT 

17  REGARDLESS  IF  <1 .  OHC  (SCLDT  ER)  IS  GT  T.  START)  AND  (T  .  CHC  (SCL  DIER) 

13  IS  LT  LEND) 

19  CALL  DEPOSITION  GIVEN  T. START,  T.  0  HC  ( SOLDIER)  ,  AND  AG 

20  YIELDING    DEPf*) 

21  CALL    DCSE. COMPUTE    GIVEN    T. START,    T  .  OHC  (SOLDIER )   ,    AG,     AND    DEFf*) 

22  CALL    DEPOSITION    GIVEN    T. OHC ( SOLDIER) ,     LEND,     AND    AG 

23  .     YIELDING    DEP(*) 

2H  CALL    DCSE. COMPUTE    GIVES    T  .OHC  (SOLDIER)  ,     T.END,     AG,     AND    DEP  {*) 

25  GO  CUT 

26  REGARDLESS  CALL  DEPOSITION  GIVEN  T. START,  T.END,  AND  AG 

27  YIELDING  DEPf*) 

28  CALL    DCSE. COMPUTE   GIVEN    T. START,    T.END,    AG,     AND    DEP  (*) 

29  'OUT* 

30  LOOE 

31  RETURN 

32  END  ••OF    RCUTIKE    DOSE2 
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12.   The  Routine  CHEMCAS.  EFFECTS 

Eurrcse 

1-    Simulates    the   injection   of   the   nerve    agent 

antidote  when  symptoms  of  chemical  agent 
poisoning  appear,  when  presented  with  an 
actual  nerve* agent  hazard,  and  when  detec- 
tion of  any   chemical    agent    hazard   occurs. 

2.  Determines  if  the  impairment  dcse 
threshold  of  the  PERSON  has  been  Dassed 
for  each  of  the  chemical  agents*  and 
assigns  the  time  that  the  threshold  has 
been  reached  to  :he  arrav  TA.INCAP,  whose 
Dointer  is  stored  in  the  attribute 
t. AG.INCAP. 

3.  Calls  the  routine  SYMPTOM. DETECT  the  first 
time  that  an  impairment  dose  threshold  is 
oassed. 

4.  Determines  if  the  incaoacitation  dcse 
threshold  of  the  PERSON  has  been  Dsssed 
for  each  of  the  chemical  agents."  and 
assigns  the  time  that  the  threshold  has 
been  reached  to   the    arrav   TA.INCAP. 

5.  Determines  if  the  lethal  dose  threshold 
has  been  passed  for  any  agent.  If  it  has, 
assigns  a  time  of  death  tnrouah  the  attri- 
bute T.LETH. 

ECUTINES    CALLED    3Y    CHEMCAS. EFFECTS 

N  AA 

SYMPTOM.  DETECT 

LABELS 

OUT 
TEMPORARY    ATTRIBUTES  REAL 

T.LETH 

This  attribute  gives  the  time  of  death 
occur inq  as  a  result  of  an  overdose  cf  chem- 
ical aqent.  It  is  assigned  the  first  time 
the  dosage  from  any  chemical  agent  uasses  its 
respective  lethal  dose  threshold. 
Value:   The  time   as   given   above 

T .  NA  A 

This    attribute      stores    the    time   at      which   the 
PERSON      finished      injecting      himself      with      a 
nerve   agent    antidote. 
Value:    The  time   as  given   above 
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GIOEAL  VARIABLES  INTEGER 

AGENT. TYPE  (1-D) 


This  array  is  used  10  store  an  inteq 
tc  identify  the  type  of  agent.  All 
agents  should  be   given  a  value  of   1; 


used  10  store  an  integer  used 

.1      nerve 
ct  he  r 


will    be  appl. 
Dimension:    N  .AGENT 
Value  : 
1    -    Ecr  nerve   agents 


N  .  AG  E  N T 


This  variable  gives  the  maximum  number  o: 
aqents  that  will  be  used  in  a  given  scenario, 
Value:    As    given   above 


SIDE 


This    variable   is      used   zc   s-ore  the  value   of 

the    side   the    PERSON  is      on.       If   the  attribute 

COLOR    is    used,     SIDE    =    COLOR  (PERSON)  +     1 
Value:    COLOR  (PERSON)     +    1 

SOLDIER 

This    variable      is    used   to      convenient.lv    refer 
tc   the   memory   location    of   the    PERSON    wnich   is 
currently    being    checked   in   the    model. 
Value:    SOLDIER    =    ?ERSPTR(    NAME  (PERSON)     ) 

GLCEAL    VARIAELES  REAL 

AGA.CUMDOSE  (1-D) 

This    array      holds    the      accumulated    IV      dcsage 
for   each   aqent. 
Dimension :' N .AGENT 

Value:   The   dosaoe    in    mg   accumulated    up   tc   the 
current    time 

AGA.  IMPAIR  (1-D) 

This        array         holds      the        impairment        dcse 

threshold  values   for   each   agent. 

Dimension:    N. AGENT 

Value:    As   given    above,    for    each  agent 
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AGA. INCAP 


(1-D) 


This      array      holds      the      incapacitation      dose 
threshold   values    for   each   agent. 

Value:    As   given   above,    for   each  agent 


AGA.  LSTK 


(1-D) 


DELT 


This    array      holds    the      lethal    dose      threshold 

values   for   each   agent. 

Dimension:    N. AGENT 

Value:    As  given    above,    for    each   agent 


The  variable  DELT  is  a  user- supplied  param- 
eter "hat  gives  the  time  interval  between 
iterations  of    CHEM. CHECK. 


OLD.  DOSE 


(1-D) 


This  array  is  used  to  store  the  values  for 
the  accumulated  dosage  as  of  end  of  the 
previous  iteration.  It  is  used  to  determine 
times  at  which  impairment,  incapacitation,  or 
death  occurred. 
Dimension:  N.  AGENT 
Value:    As   given   above 


PC. AAA 


(1-D) 


This    array  contains  the      probability   that   the 
PERSON,        as    a      result      of      poor   training     or 
panic,      will      inject    himself      with    the      nerve 
agent    antidote    under    circumstances    other   than 
the    appearence    of   nerve   agent   symptoms,      such 
as   detection      of  the   agent    or      the    apcearenc 
of    svmctoms    caused    bv      a    chemical    agent    ct  he: 
than'*  the  nerve   agent. 
Dimension:    N.SID2 
Values:   The    probability   as    given   above 


ice 


T.CHEMCURH 


This    variable   serves   as      a   counter    that    keeps 
track    of      the    time   at      which  the      last    action 

Performed   or    scheduled   to    be   performed   by   the 
ERSON   was  completed. 


TA. IMPAIR 


(1-D) 


This   array  provides   the  time   at  which   the 
impairment   dose  threshold  was   reached   for 
each  aqent. 
Dimension:  N. AGENT 
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Values: 

0   -    if  the   impairment    dose      threshold    has    not 

been   met 
The    time     as    given      above      if   the      impairment 

dose    threshold  has    been   reached 


TA.INCA? 


(1-D) 


This   array  provides   the  time   at  which   the 
incapacitation  dose  threshold  was  reached  for 
each  agent. 
Dimension:  N. AGENT 
Values: 

0  -  if  the  incaDacitat ion   dose  threshold  has 
net  been  met 


The  time  as  given  above  if  the  incapaci 
dese  threshold  has  been  reached 


tat ion 


TL 


This      variable      gives        the      simulation      time 
within  the   main      comoat    model    at    the      time    of 
the    last   iteration. 
Value:   The  time   as    given   above 


UFTH 


(1-D) 


This  array_  is   used  as  a  convenience 

for  a  uniromi  (9,1)  random  number. 

Dimension:  3 

Values : 

1  -  2  (the  uniform  distribution) 

2-0  (the  first  parameter) 

3  -  1  (the  second  oaramater) 


call 


RECURSIVE    VARIABLES 


INTEGER 


AGENT 


This    variable      is    used    to      store   to      value    of 
the    current    agent    type    of    interest. 
Value:        The      iteration   index      j       (the      sgent 
concern  ed)  . 


FLAG1 


d 

eterm 

ine 

h 

ad   b 

een 

. 

If 

the 

A   -r 

cent 

has 

This    variable      serves    as    a    flag      to 

if  any     impairment   dose      thresholds 

reached  during      previous   iterations 

value    equals    N. AGENT,      then    no   impa 

occurred   previous    to   this   iteration. 

Values : 

N. AGENT  -    If    no   impairment    had   occurred    as   of 

the   last    iteration. 
Any    other      value  if    1      or    more 

dose     thresholds      had        previ 

reached . 


impai 
lusly 


rment 
been 
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FLAG  2 

any  impairment  dose  threshold  had  beer.  met  or 
exceeded   during   this   iteration.  If   one    (or 

more)  had  beer.,  this  variable  also  carries 
the  agent  type  number  of  that  aaent  (or  the 
highest  number  if  two  or  mere  agents  pass  the 
threshold  during  the  same  iteration  of 
CHEM.  CriECK)  . 
Values: 
0    -    If  no    impairment    dose      threshold    had   been 

reached    during  this   iteration. 
The    agent      type      number      -    if     an      agent      had 

caused    impairment    during   this    iteration. 

RECURSIVE    VARIABLES  REAL 

U 

This  variable  is  used  to  store  a  uniform 
(0,1)     random    number. 

EEIEF    EXPLANATION    OF    CODE: 

LINE   9 

The  routine  begins  by  checking  to  see  if  the 
impairment  dose  threshold,  found  in  the  array 
AGA. IMPAIR,    has    been    reached   for   any   chemical 

a  gen  t . 

LINES    10    -     1 '4 

When  an  impairment  dose  threshold  is  reached, 
a  time  of  impairment  is  assigned  to  the  array 
TA.  IMPAIR. 

LINES    15    -     17 

If  the  agent  causing  the  impairment  is  a 
nerve  agent,  then  injection  or  an  antidote 
will  be  performed.  This  is  accomplished  by 
calling  the  routine  NAA. 

LINES  18  -  22 

If  the  nerve  agent  antidote  has  not  previ- 
ously been  administered,  then,  when  symptoms 
of  a  chemical  agent  appear,  it  is  ccssible 
that  the  soldier,  as  a  result  of  poor 
training  or  panic,  may  inject  himself  with 
the  nerve  agent  antidote.  Tnis  probability  of 
this  is  contained  in  PC. NAA.  If  injection 
will  occur,  based  on  the  comparison  of  a 
uniform  (0,1)  random  number  with  PC. NAA,  the 
routine   NAA    will   be  called. 
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LINES   25-2 


If  FL 
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rily          used 

t 

c        call 

CM. DETECT. 

LINES    30    -    35 


The  rcutine 
has  reached 
any    agent. 

tion  from 


next  checks  to   see  if   the  dose 

the  level  of   incapacitation  for 

If  it  has,   a  time  of  incapacita- 

that  aqent   is  assigned  through  the 


array  TA.INCAP(i)  for  each  agent  i 


LINES  37  -  4  7 


If  the  incapacitation  dose  has  been  passed 
for  one  or  more  agents,  the  routine  checks  to 
see  if  the  lethal  threshold  has  been 
reached.  If  it  has,  a  time  of  death,  I.LETH, 
is  assigned  as  an  attribute  of  the  PEBSON. 
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CODE 


1  EOUTINE    CHEKCAS.  EFFECTS 

2  DEFINE    FLAG1,    FIAG2,    AGENT    AS    0  -DIMENSIONAL.    INTEGEB    VARIABLES 

3  DEFINE    T.NAA.E,     U    A3    0-DIMENSIO NAL,    PEAL    VARIABLES 

4  PRINT       1     LIME    THUS 
ROUTINE    CHEMCAS. EFFECTS   CALLED 

5  LET    FLAG1     =    C 

6  LET    FLAG2    =    0 

7  POR    J   =     1    TO    N. AGENT,    DO 

8  LET    AGtNT    =    J 

9  IF    TA. IMPAIR  (J)      IS    EQUAL    TO     0,     LET    FLAG1    =    FLAG1    +     1 

10  THEN    IF    AGA.  CUMDOSE  (J)     IS     GE    AGA.  IMPAIR  (J) 

11  LET    FLAG2     =    J 

12  LET    IA.  IMPAIR  (J)     =     (     (  ^GA  .  IMFAIR  (J)  -OLD.  DOSE  ( J)  )  / 

13  (AGA.  CUMDOSE  (J)  -OLD.  DOSE(J)  )  *DELT    )     +    TL 

14  LET    T.CHEMCOEH    =    TA. IMPAIR  (J) 

15  IF    AGENT.TYPE  (J)     EQUALS    1  ''TYPE     1     IS    NERVE    AGENT 

16  CALL    NAA 

17  GC    CUT 

18  REGARDLESS     IF    T. NAA  (SOLDI EB)     =0  "NO    NAA    INJECTION 

19  LET    U    =     DI3TRIE(    U?TR(*)     )  "PREVIOUSLY 

20  LISTU,     PC. NAA(SIDE) .     AGENT 

21  THEN    IF     U    IS    IE    PC.  NAA  (SIDE)  ,     CALL    NAA 

22  REGARDLESS 

23  'OUT'     REGARDLESS    LOCE 

24  LIST    FLAG1,     FIAG2 

25  I?    FLAG1     =    N.  AGENT  "NO    IMPAIR    DOSE    REACHED    PREVIOUSLY 

26  IF    FLAG2    =    0,       RETURN  "NO    IMPAIRMENT    THIS    ITERATION 

27  OTHERWISE    CALL    SYMPTOM. DETECT    GIVEN    FLAG2       "IMPAIRMENT    REACHED 
23  REGARDLESS                                                                                                     "FOR    FIRST    TIME 

29  LET    FLAG  2    =    0 

30  FOR    J    =     1    TC    N.  AGENT,    DO 

31  IF    AGA.CUKDOSE(J)     IS    GT    AGA.  INCAP  ( J)  ,     LET    FLAG2    =     1 

32  THEN    IF    T A. IN  CAP (J)     IS    LQ UAL    TO    0 

33  LET    TA.INCAF(J)     =    (     I A GA. INC AP ( J) -OLD. DOSE (J) ) / 

34  (AGA.  CUMDOSE  (J)  -OLD.  DOS  E  (J)  )  *DELT    )     +    TL 

35  REGARDLESS  LOCP 

36  IF  FLAG2  =  0,  .RETURN 

37  OTHERWISE  FOR  J  =  1  TO  N. AGENT,  DO 

33  IF    AGA.CUMDOSE(J)     IS     GE    AGA.LETH(J) 

39  IF     T.LETH  (SOLDIER)     IS    NOT    EQUAL    TO    0 

40  LET    T.LETH  (SOLDIER)     =     MIN.Ff    T.  LETH  (SOLDIER)  , 
4  1  (     (AGA.INCAr  (J)  -OLD. DOSE  (J)  )  / 

42  JAdA.  CUMDOSE  \j)  -OLD.  DOSE  (J)  )  *DSLT    )     ♦    TL  ) 

43  ELSE    LET    T  .LET  H  (SOLDIER)      = 

44  (     (AGA.  INCAP  (J)  -OLD.  DOSE  (J)  )  / 

45  JAGA.  CUMDOSE  (J)  -OLD.DOSE(J)  j  *DELT    )     ♦    TL 

46  REGARDLrSS 

47  REGARDLESS  LCCP 

48  RETURN 

49  END  "OF  ROUTINE  CHEMCAS .  EFFECTS 
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13.       I  he   Rpllti.ne    SYMPTOM. DETECT 

Purpose: 

1.  If  the  PERSON  has  not  yet  detected  the 
presence  cf  a  chemical  hazard,  the  routine 
s  c  h  s du 1  s  s  a  d5tecti.cn  a  ^*  ■'"he  ■if^r;:ii',"*TP.  ^^i* 
time  of  the  first  agent  to  cause* impair- 
ment. The  onset  cf  ^impairment  is  assumed 
to  be  the  time  of  the  first  appearance  of 
noticeable    symptoms. 

2.  Regardless  or  when  detection  occurred,  the 
routine  will  call  the  routines  MASK,  OHC, 
DECCN,    and    MCPP. 

ARGUMENT  INTEGER 

AGENT 


5CUTINSS 

DECON 
M  A  SK  I N  G 

'^  C  r? 

CHC 

TEMPORARY    ATTRIBUTE  INTEGER 

M  A  SK 

This      attribute    indicates      if     the    PTPSON      is 
wearing  the    chemical   protective   mas*. 
Value  : 

0  -    if  the   mask   is   not    being   worn    (off) 

1  -    if   the   mask    is   Deing    worn    (on) 

TEMPORARY    ATTRIBUTES  REAL 

T.CHEMDET 

This  attribute  stores  the  time  at  which  the 
PERSON  detected  the  praser.ce  of  a  persistent 
chemical  agent  hazard.  This  detection  may 
have  occurred  due  to  any  of  the  four  possible 
means  cf  detection  (see  the  DETECTION  routine 
discussion  in   Chapter    3    for    more   detail) . 


T.MASK 


This  attribute  stores  the  time  at   which  the 
PERSON  finished  donn: 
Value:  The  time  as  g: 


PERSON  finished  donning  his  protective  mask, 
alue:  The  time  as  qiven  above 
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GLOBAL    VARIABLES 


INTEGER 


SIDE 


This    variable   is      used    to   store  the      value   c. 
the   side  the    PERSON  is      on.      If  the   attribute 
COLOR    is    used,    SIDE   =    COLOR  (PERSON)     +    1 
Value:    COLOR  (PERSON)     +    1 


SCLDIER 


This    variable      is    used   -co      conveniently    refer 
to   the   memory    location    of    the   PERSON    wnich    is 
currently   being   checked    in   the   model. 
Value:    SOLDIER'=    PERSPTR  (    NAME  (PERSON)     ) 


GIOEAL    VARIABLES 


REAL 


EC.OHC 


(1-D) 


T  hi s    arra y      contai ns   t a  2      ? : 

soldier   that      has    detected   the   presence      of   a 

persistent      aaent    hazard      by      ahv    means      will 

assume  that    the   agent    is    still   failing    toward 

the    cicund,      and  as  a      result    will    seek    cver- 

h  aad" cover. 

Dimension:    v.  SIDE 

Values:   The    probability   as    given   abcve 


T.CHEMCURB 


This  variable  serves  as  \  counter  that  keeps 
track  of  the  time  at  which  the  last  action 
osrfcrmed  or  scneduled  to  be  performed  by  the 
PERSON   was  completed. 


ERIE?    EXPLANATION    OF    CODE: 


LINES    4-6 


The  routine  MASKING  is  called, 
PERSON  to  mask,  if  he  has  not 
so. 


fcrcing  the 
already  done 


LINE  7 


The  time  of  detection  of  the  presence  of  a 
persistent  chemical  agent,  T.CHEMDET,  is  set 
egual  to  the  latest  value  of  the  time  of 
impairment  (the  value  of  T.CHEMCURB  if  not 
changed)    or    the   time   the    mask    was    denned. 
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LINE  8 


LINE  9 


The  individual  may  assume  overhead  cover, if 
necessary,  so  that  he  may  dacont aminate  any 
exposed  areas  of  the  body.  This  is  done  by 
calling  the  routine  QHC. 


The  DECON  routine  will  be  called,  and  the 
probability  of  delayed  decontamination, 
contained  in  the  global  variable 
PC. DEL. DECON ,  will  be  used  in  the  CECON 
routine. 


LINE  10 


The  MCPP  routine  is  called,  causing  the  indi- 
vidual to  don  all  i-ems  of  chemical 
protective  gear  If  decontamination  had  not 
oeen  performed  (which  would  have  caused  an 
increass  in  individual  protection  to  full 
protection)  . 


CODE 


1  ROUTINE    SYMPTCM. DETECT     GIVEN     AGENT 

2  DEFINE    AGENT    AS    A    0- DIMENSIONAL.    INTEGER    VARIABLE 

3  PRINT       1     LINE    WITH     AGENT    THUS 
ROUTINE    SYMPTOM. DETECT    CALLED    GIVEN    ** 

U  IF    MASK  (SCLDIER)     IS     NOT     EQUAL    TO    1 

5  PERFORM    MASKING 

6  IET    r.CBEMCOafl   =    T.  BASK  (SOLD  IEE) 

7  REGARDLESS    LEI    1  .CH  EMDET  (SC-LDIE  R)     =    T.CHEMCURR 

8  CALL    OHC    GIVEN    PC.OHC(SIDZ) 

9  CALL    DECON 

10  CALI    KOPP 

11  RETURN 

12  END  "OF    ROUTINE    SYMPTOM.  DETECT 
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1U.      The  Routine    NAA 

Purpose: 

1.  Determines  the  time  of  the  ir. jecticr.  of 
the  nerve  agent  antidote,  and  assigns  that 
time  to  the    attribute    T.NAA. 

2.  Updates  the  array  A. ANTIDOTE,  assigning 
the  value  contained  in  the-  global  variable 
NAA. FACTOR  to  the  array  elements  corre- 
sponding   to   nerve   agents. 

TEMPORARY    ATTRIBUTE  REAL 

T.NAA 

This    attribute      stores   the    time   at      which   the 
PERSON     finished      injecting      himself      wi^h      a 
nerve   aqent    antidote. 
Value:   The  time   as   given   above 

GLOBAL    VARIABLES  INTEGER 

AGENT. TYPE  (1"D) 

This  array  is  used  to  stcre  an  integer  used 
to  identify  the  type  of  agent.  Aix  nerve 
agents   should   be      given    a    value   of       1;       cv  her 

?ositive    int  easrs    can    be    used    "to    dencte    c~her 
vpes    cf   agent.       It   is    used   to    check    the  type 
o*     a  cant    when      the  nerve      agent   antidote     is 
injected;      if      the   agent    tVDe    is      nerve.      the 
dosage   will    be   reduced   by   NAA. FACTOR;      if   the 
tvpe    is  not    nerve,        then   no    dosage   reduction 
will    he  aoplied. 
Dimension:    N. AGENT 
V  ai  u  e  : 
1    -    Fcr  nerve    agents 

N.  AGENT 

This  variable  gives  the  maximum  number  of 
agents  that  will  be  used  in  a  given  scenario. 
Valuc  :    As   given   above 


SIDE 


This    variable   is      used   to   store  the      value   of 
the    side   the    PERSON   is      on.      If   the   attribute 
COLOR    is    used,     SIDE    =     COLOR  (PERSON)     ♦    1 
Value:    COLOR  (PERSON)     +     1 


SCLDIER 


This  variable  is  used  to  conveniently  refer 
to  the  memory  location  of  the  PERSON  which  is 
currently   being   checked   in   the   model. 
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Value:    SOLDIER    =    PERSPTR  (    NAME  (PERSON)     ) 


GLOBAL     VARIAELES 


REAL 


A.  ANTIDOTE 
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DI.NAA 


(2-D) 


This  array  holds  the  probability  distribution 
used  to  determine  the  rime  required  -c  inject 
the      nerve      agent   antidote.  The      temporary 

variable  T.NAA.D  is  drawn  from  the  distribu- 
tion and,  when  added  to  T.CHEMCURR,  sets  the 
time  at  which  the  injection  was  complete, 
T  .NAA  . 

Dimensions:     N.SIDE   by    3 
Values: 
1st    dim<__ 
2nd    dimension: 

1  -   The    distribution   tvoe 

2  -   The    first   parameter  of  the   distribu- 

tion 

3  -  The  second  parameter   of  the  distri- 

bution 


NAA.  FACTOR 
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T.CHEMCURR 


This    variable   serves   as      a   counter    that    keeps 
track    of      the    time    at      which   the      last    action 

erformed   or    scheduled   to    be   performed   by   the 

ERSON   was  completed. 


I 
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RECURSIVE    VARIABLE  REAL 

T  .  NA  A .  D 

This  variable  is  used  to  store  the  time  that 
it  takes   to    inject    a   nerve    agent   antidote. 

ERIE?    EXPLANATION    OF    CODE: 

LINE   4 

The  time  it  takes  to  administer  the  nerve 
agent  antidote,  T.NAA.D,  is  drawn  from  the 
array   DT.  NAA  . 

LINES    5-6 

The  result  is  added  to  the  current  simulation 
time  for  the  individual,  T.CHEMCURR.  This 
completion  tine  is  also  assigned  to  the 
attribute      T.NAA. 

LINES   7-10 

The  antidote  is  assumed  to  cause  a  reduction 
in  the  effective  nerve  agent  dosage  received 
by  the  PERSON,  which  can  be  expressed  as. a 
n  s  •"-'™-5'nj»o^T-j   /"\  •£    *Ka    a .—  +■  n  si     i  o  s  *    abscr*be3        ^  Vi  -  — 

percentage  is  contained  in  the-  variable 
NAA. FACTOR.  Incorporation  of  this  change  in 
the  dosage  calculations  is  accomplished  by 
changing  the  value  in  the  arrav  A. ANTIDOTE 
from  its  initial  value  of  1  to  the  value 
NAA. FACTOR  for  every  agent  whose  type  is 
n erv  e . 


CODE 


1  ROUTINE    NAA 

2  DEFINE    T.NAA.C    AS    A    0-DIKENSION  AL,    REAL    VARIABLE 

3  PRINT       1     LIME    THUS 
ROUTINE    NAA    CALLED 

4  LET    T.NAA.D    =    DISTRIBf    D  T  .NA  A  (S  IDE  .  *)     ) 

5  LEI    T.CHEHCOEE    =  T.CHEMCUBR    *   T.NAA.D 

6  LET    T. NAA  (SOLDIER)      =    T.CHEJiCURR 

7  FOR    J   =     1    TC    N. AGENT,     DO 

8  IP    AGENT. TYPE  (J)     =    1 

9  LET    A.  ANTIDOTE  (J)     =    NAA.  FACTOR  (SIDE) 

10  REGARDLESS    LOOP 

11  LIST    T.NAA.D,    T.CHEKCURR,    T.  NAA  (SOLDIER)  ,  A.  ANTIDOTE 

12  RETURN 

13  END  ••OP    ROUTINE    NAA 
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15.      The  Routine    CROSSING 
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RCUTIN2S    CALLED    3Y    CROSSING 

CHEMCAS.  EFJECT 

DETECTION 

DCSE3 

LABELS 


DETECT 

next 


TEMPORARY    ATTRIBUTES 


INTEGER 


CHEMDET 


This      attribute      shows      if        the      PERSON      has 
detected   the      presence   of   a      persistent    chem- 
ical     agent         hazard      as        of      the         previous 
iteration    of    CHEM. CHECK. 
V  al  u  e  s  : 

0  -    indicates   no    detection 

1  -    indicates   detection 


CONTAMINATED 


CP 


This    attribute    indicates    if   there    is   contami- 
nation  over    the    entire      surface   of    the    PERSON 
or  his   collective    protection 
Values: 

0  -    No   contamination   over   all    surfaces 

1  -    Contamination   present   on   all   surfaces 


This    attribute    indicates    the   current    level   of 
collective  protection    afforded  the    PERSON 
Values: 
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1  - 

1  _ 
z. 

3  - 

H  - 

5  - 


A    vehicle    with 
syst  am 


an   operating   overpressure 


A    vehicls    without    an    overpressure   system 

A    hunker    or    ouilding 

A      foxhole,        with   or      without      temporary 

overhead   cover 
No   protection    (the    PERSON   is    in    the    open) 


DEFNOM 


This    attribute    gives   the   relative    defilade   of 

the    PERSON   at    any    given   time 

Values: 

1  -    in   a    foxhole 

2  -    prone 

3  -    crawling 

4  -    kneeling    or   sitting 

5  -    standing 


TEMPORARY    ATTRIBUTE 


REAL 


T.  CO  NT  All 


This      attribute      gi7es      the         time      at      which 
contamination        occurred      over 
surface      of      the      PERSON      or      his 
protection. 

value:        The      time        at      which      contamination 
occurred 


collect  iv e 


GL02AL     VARIABLES 


INTEGER 


N.  AGENT 


.s      vanaole    g: 
agents  that    will   be  used 
Value:    As   given   above 


maximum    number      of 
.n    a    aiven    scenario. 


SCLDIEE 


This    variable      is    used   to      conveniently    refer 
to   the   memory    location    of    the   PERSON    wnich    is 
currently   being   checked    in    the   model. 
Value:    SOLDIER    =    PERSPTR  (    NAME  (PERSON)     ) 


GLOEAL    VARIABLES 


REAL 


DELT 


The  variable  DELT  is  a  user-supplied  param- 
eter that  gives  the  time  interval  between 
iterations  of   CHEM. CHECK. 


DEP.  G.  CURR 


(1-D) 
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This    arrav      hoi  is   the    current    values      for   the 

deposition  on      the   ground   at   the      location    of 

the    PERSON. 

U  ni  t  s  :    mg  /  s  q .    cm 

Dimension:    N -AGENT 

Values:    As  given   above    for    each   agent 

DEP.  G.OLD  (1-D) 

This    array      holds   the    most    recent      values    for 

the    deposition    on    the      ground   at    the    location 

of   the   PERSON.      This   information    was    obtained 

during  the  last    iteration   of   the    model. 

Units:    mg/  sg.    cm 

Dimension:    N.  AGENT 

Values:    As  given   above    for    each  agent 

BIN.  G.CHEM  (1-D) 

This    array      provides    the      minimum    significant 
level    cf   ground   deposition    for   each   agent. 
Dimension:    N. AGENT 

T.CHE  H  CURB 

This  variable  serves  as  a  counter  that  keeps 
track  cf  the  time  at  which  the  last  action 
performed  or  scheduled  to  be  performed  by  the 
PERSON   was   completed., 

TL 

This   variable   gives    the   simulation   time 
within  the  main   combat  model  at  the   time  of 
the  last  iteration. 
Value:  The  time  as  given  above 

EEIEF  EXPLANATION  OF  CODE: 

LINE  3 

The  first  check  the  routine  makes  is  tc  see 
if  CHEMDET  is  equal  to  1 ,  indicating  that  the 
PERSON  has  detected  the  presence  of  a  chem- 
ical agent  hazard.  If  he  has,  then  all 
reactive  measures  will  have  been  scheduled 
through  attribute  assignments  and  the  routine 
can  go  tc  the  dosage  comoutation  section  NEXT 
directly. 
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LINES    li     -    6 


If   the   PERSON   has   not    previously    detec-  =  c   the 
presence  of    a   chsmical   agent, hazard,    then   the 


h2    PERSON 


(DEP.G.OLD    nC" 
If   he   had   nc 


routine  checks      tc   see    i 

contamination    previously 

tc   zero   for    any   agent) . 

then    r<=      must   nave      just    entered      an   area 

contaiination   and  the    beginning   point    for   any 

chemical   effects  or  actions,    T.'CHEMCURR,    mus* 

na      c<i-«-      a-r       rtia      —  1  ma  a  —       a  K  i  r  h       lie      -f  •   ~  c:  ~r      o  — .  J-  c  "-a  /^ 


was  in 
equal 
teen. 

of 


oe  set.  at  the  time 
the  contamination. 


at  which  he  first  entered 


LINES  8-9 


The  time  that  the  contaminated  area  was  first 
entered,  as  given  in  equation  3.11  in  Chapter 
3,  Section  5,  is  usea  to  set  T.CHS14CUFR  to 
indicate  the  beginning  of  the  chemical 
crossing   situation. 


LINES    10    -    15 


if    the    soldier    should 


jja      c^ 


A  check  is  made  to   see 
be  tacged   as  contaminated.     He 
tagged  if  he  is  in  a  contaminated 
the  on  a  exception   of  movina  on  f. 
he  continues  moving,  he  receives  only  contam- 
ination  en  his   hands,   legs  and  feet   (see 
Chapter  3,  Section  2  for  more  details). 


ill 

area,   with 

foot   -  while 


LINE  16 


The  DETECTION  routine  is  called. 


LINE  17 


The  DOSE3   routine  i. 
dose  rece ived . while  ■ 


called  to 

os sing. 


cempute  the 


LINE  16 


The  CHEMCAS .EFFECTS  routine  is  called  to 
assess  the  im.Dact  of  the  dosage  rscived 
during  this  iteration. 
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CODE 


1  ROUTINE    CROSSING 

2  PRIST       1     LINE    THUS 
ROUTINE    CROSSING    CALLEC 

3  IF    CHEMOET  (SOLDIER)     =    1 „    GO    TO    NEXT 

4  OTHERWISE    FOR    J    ■    1     TO    N.  AGENT.     DO 

5  IF    DEP.G.CLD(J)     IS    NOT    EQUAL    TO    0,    GO    TO    DETECT 

6  REGARDLESS    LCCF 

7  FOR    J    =     1    TO    h".  AGENT,    DO 

3  IF    DEF.G.CURR  (J)      IS    GI    HIH.G  .CHEM  (J) 

9  LET    I.CHEHC08R    =     (     (KI  N.  G  .CHEM  (J) /DEP.  G.  CURR  (J)  )  *DELT    )     ♦    TL 

10  THEN    IF    CF    IS     HOT     EQUAL   TO    5 

11  THEN    IF   DEFNUM    IS    NOT    EQUAL    TO    5 

12  LET    T.CONTAM  (SOLDIER)     =    T.CHEHCURR 

13  LET    CONTAMINATED  (SOLDIER)     =    1 

14  LIST    I. CCNTAM  (SOLDIER)  ,    CONTAMINATED  (SOLDIER)  ,     T.CHEMCURR 

15  REGARDLESS    LCCP 

16  'DETECT'    PERFORM    DETECTION 

17  'NEXT'     CALL    DCSE3 

18  CALL    CHEBCAS.  EFFECTS 

19  RETURN 

20  END  "0?    ROUTINE    CROSSING 
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16.       The  Routine    COS 53 

Purpose : 

The  CCSE3  routine  computes  the  accumulated 
dose  for  each  agent  in  situations  where  the 
PERSON  is  crossing  an  area  of  previous  chem- 
ical   contamination. 

RCOTINES    CALLED    BY    D0SE3 

DEPOSITION 
D0SE1 
DCSE3. COM? 

TEMPORARY    ATTRIBUTES  INTEGER 

CP 

This   attribute    indicates   the   current   level   of 
collective  orotection    afforded   the    PERSON 
Value  s : 

1  -    A   vehicle   with     an    operating   overpressure 

system 

2  -    A    vehicle   without    an    overpressure    system 

3  -    A    bunker    or    building 

4  -    A      foxhole,        with    or      without      temporary 

overhead  cover 

5  -    No   protection     (the    PERSON    is    in    the    cpen) 

DZENUM 

This    attribute    gives    the    relative    defilade   of 
the    PERSON  at   anv   given   time 
V  al  u  e  s  : 

1  -    in  a    foxhole 

2  -    pccne 

3  -    crawling 

4  -    kneeling    or    sitting 

5  -    standing 

TEMPORARY    ATTRIBUTES  REAL 

T.DEC  ON 

This    attribute      gives    the      time   at      which    the 
process  of  decontamination    was   completed,      to 
include  the    donning  of      full   chemical   protec- 
tion   after   decontamination. 
Value:   The  time   as   given   above 

T.MASK 

This  attribute   stores  the  time  at   which  the 
PERSON  finished  donning  his  protective  mask. 
Value:  The  time  as  given  above 
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GIOEAL    VARIAELES  INTEGER 

N  .  AG  E  N  T 

This  variable  gives  the  maximum  number  of 
agents  that  will  be  used  in  a  givan  scenario. 
Value:    As   given   above 

SOLDIER 

This    variable      is    used   to      con  ver.ienrlv    refer 
to   the   memory   location    of    the    PERSON    which   is 
currently    being    checked    in    the   model. 
Value:    SOLDIER    =    PERSFTR(    NAME  (PERSON)     ) 

GIOEAL    VARIAELES  REAL 

AG. DECAY  (1-D) 

This  array  provides  the  amount  of  .--cay  of 
each  agent  due  to  weathering  tha-*-  can  be 
expected  to  occur  in  the  interval  DELT.  It 
is  multiplied  by  the  deposition  DEP.G.OLD  at 
the  beainnina  of  the  interval  to  yield  the 
value  at  the  "end  of  the  interval. 
Dimensions:  N. AGENT 
Value:    As   given    abova,    for    each   agent. 

2>G.?IZZU?  (1-D) 

This  array  serves  as  a  conversion  factor  to 
cenver-*-  "the  deposition  on  the  ground 
DEP.G.CURR  in  a  contaminated  area  +  c  the 
deposition  that  would  be  found  on  the  surface 
of  personnel  and  vehicles  crossing  that  area 
-  thus,  it  represents  the  percentage  of  the 
agent  picked  up  in  traversing  a  contaminated 
area . 

Dimension:    N.  AGENT 

Value:    As   given    above,    for    each   agent 

AGA.  CUMDOSI  (1-D) 

This    array      holds   the      accumulated    IV      dosage 
for    each   agent. 
Dimension:    N. AGENT 

Value:    The    dosage    in    mg    accumulated    up   to   the 
current    time 


AGA. DECON. DCSE  (1-D) 

e      averaq 

IRSON   will   receive 


This    array   holds   the      averaqe    dosage    for   each 
agent,      in   mg,      that      the    PET" 
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during     each         DELT      interval      while        he      is 
performing  decontamination- 
Dimension;    S. AGENT 

Value:  A  dosage  in  nig,  which  is  the  total 
dcse  received  durirc  decent a mi nation 
divided  by  the  number  "of  DELT  intervals 
it  takes   to   perform   the   decontamination. 

DEP.  G.OJRR  (1-D) 

This    array      holds   the    current    values      for   the 

deposition  on      the   ground   at   the      location   of 

the    PERSON. 

Units  :    mg/  sq.    cm 

Dimension:    N. AGENT 

Values:    As   given    above    fcr    each  agent 

DSP.GoOLD  (1-D) 

This    array      holds    the    most    recent      values    for 

the    deposition    on    the      ground   at    the   location 

of  the   PERSON.      This    information    was   obtained 

during  the   last   iteration   of   the   model. 

Units  :    mg/  sq.    cm 

Dimension:    N. AGENT 

Values:    As   given   above    for    each  agent 

T.  CUR RENT 

This      variable    gives      the   current      simulation 
time    within    the    main    combat    model    calling   the 
chemical    effects   routines. 
Value:    The   time   as   given    abeve 

TA.PF.CHEM  (1-D) 

This  array  provides  the  time  that  the  current- 
level  of  individual  chemical  Drotection  was 
denned,  for  each  body  area. 

TL 

This      variable      gives        the      simulation      time 
within   the   main      combat   model    at    the      time   of 
the    last   iteration. 
Value:    The   time   as  given    above 

RECURSIVE    VARIABLE  INTEGER 

AG 

This  variable  is  used  pass  the  agent  type  of 
the    agent   concerned  between      this    routine   and 
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the    DCSE3C0MP      routine,       which      is    a      routine 
written  foe    the   STAR    implementation   that   dees 
the    actual  computation    of    the    dosaaes. 
Value:        The      iteration    index      j      {the      agent 
concerned)  . 

RECURSIVE    VARIABLES  REAL 

DEF  (1-D) 

This  array  is  used  as  an  argument  to  pass  the 
ground  deposition  and  air  concentration 
avveraqed  between  the  beginning  and  end  of 
the  time  interval  over  which  -he  dosaas  is  to 
be  coirtuted. 
Dimension:  2 
Value  : 

1  -    The  aver  acre    deoosition    en   the    around. 

2  -    The  average   concentration    in    the    air. 

T.INT 

This  variable  serves  to  store  the  value  of  an 
intermediate        time  between        T.OLD  and 

T. CURRENT,  if  any.  It  is  used  as  an  argue- 
ment  to  pass  the  beginning  or  end  of  a  time 
interval  to  the  routines  DEPOSITION  and 
D0SE3.COM?. 

T.OLD 

This  variable  is  used  to  store  the  value  of 
the  beginning  of  a  time  interval  for  dose 
computations.  It  is  =gual  to  TL  is  decontami- 
nation did  not  end  during  DELT;  eaual  to 
T.DECCN  if  decontamination  did  finish  durina 
DELT.  It  is  used  as  an  arguement  to  pass  the 
beginning  of  a  time  interval  to  the  routines 
DEPOSITION   and    D0SE3.C0MP. 

ERIEF    EXPLANATION    OF    CODE: 

LINES    7-10 

The  routine  begins  by  adjusting  the  exterior 
deposition  DEP.G.CURR  by  the  AG. PICKUP  factor 
for    all  agents. 

LINES    12    -    15 

The  next  check  made  by  the  routine  sees  if 
the  time  that  decontamination  is  complete  is 
greater  than  or  egual  to  the  current  time.  If 
it  is,  then  the  dosage  received  has  been 
computed  with  the  DECON  routine  and  so  the 
D0SE3   calculations   are    not   needed.    The 
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routine  will  add  the  average  dosaae 
accumulated  over  DELT  during  decontamination, 
stored  in  the  array  AGA.  DECON .  DOSS,  to  the 
accumulated  dosage  value  in  arrav 

AGA.CCflDOSE,  for  sacn  agent,  then  return  to 
CROSSING. 


LINES    16    -     19 


The  next  check  that  is  made  is  to  see  if  the 
dosage  calculations  pertain  to  the  one  excep- 
tional situation  a  C?  value  and  DSFKuM 
value  of  5,  indicating  a  PERSON  crossina  on 
foot,  remaining  upright.  If  the  case  is' not 
exceptional,  the  normal  dosaae  calculations 
apply,  so  the  routine  DCSE1  is  called. 
Otnerwise,  the  same  general  procedures  as  are 
used  in  DOSS1  are  applied  in  the  lines  that 
follow,  only  dosage  is  only  accumulated  over 
the  body  areas  5,  6  and  7. 


LINES  22    -  23 


If  leccnt aminaticn  had  been  completed  during 
the  last  DELT  seconds.  the  routine  computes 
the  dose  since  decontamination  was  comoleted 
by  setting  the  beginning  of  the  interval  over 
which  the  dose  is  to  be  comDuted,  T.OLD,  to 
the  time  decontamination"  was  completed, 
T.DECCN. 


Checks  to  see  if  masking  or  donning  of  any 
individual  items  occurred  during  the  DELT 
period  of  interest.  If  maskina  or  denning  an 
item  had  been  completed  during  the  DELT 
period,  dosaae  calculations  are  performed  at 
the   eld  level   of  protection   until  the   new 


protection 
level  cf  p 


level  was  completely  assumed,  then  at  the  new 
ro tection. 


LINES  28  -  34 

Checks  to  see  if  two  or  more  events  occurred 
during  DELT;  if  thev  have,  the  desaqe  is 
first  computed  over  "the  interval  T.OLD  to 
T.INT.  then  T.OLD  is  assigned  the  value  T. INT 
so  the  remaining  lines  will  compute  the 
remaining  dosage;  that  received  after  the 
original   time   T.INT. 

LINES    32  ;    41  ;    43;    45 

The  routine  calls  the  DOSE3.COMP  routine, 
which  actually  computes  the  dosaqe  received 
during  appropriate  interval  and  assions  the 
cumulative   dose    to   the      array    AGA.CUMEOSE   for 
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each    aqent.       Beth   inhalation   and    percutaneous 

.OSi 
qu: 


dosages  are    considered,      ana      converted    to  a: 
equivalent  intravenous    (IV)     dose. 


CODS 


k  ji  i.  u  k  n 
OTHERWISE    I?     (C?  (SOLDIER)     IS    SOT    EQUAL    TO    5)     OR 
(DEFNUH  (SOLDIER)      IS    NCT    EQUAL    TO    5) 
CALL     rCS El 


1  ROUTINE    DOS  S3 

2  DEFINE    T.CLD,     I. HIT     AS    0 -DIM  ENS  ION  AL,     REAL    VARIABLES 
•  3  DEFINE    AG    AS    A    0-DI BENSIC liAL .    INTEGER    VARIABLE 

4  DEFINE    DEE    AS    A     1-  D  I.1ENS  ION  AL,     SEAL    ARRAY 

5  PRINT       1     LINE    THUS 
ROUTINE    DOSE3    CALLED 

6  RESERVE    DEP(*)     AS    N.  AGENT 

7  FOR  J  =  1  TC  N.  AGENT,  DO 

8  LET  DEE  .G.CURR  (J)  =  HAX.F(  DE E. G. CURR (J) *  AG. PICKUP ( J)  , 

9  DEE.G.CID(J)  *AG.  DECAY(J)     ) 

10  LOOP 

11  LIST    DEE. G. CURR,     AG. PICKUP,     DEP. G. OLD,     AG. DECAY 

12  IF    T.DECCN  (SCLDTER)      IS    GT    T.  CURRENT, 

13  FOR    J    =    1    TO    N.  AGENT,     LET    AG  A.  CUtlDOSE  { J)     =    AGA  .CUHDOSE  ( J) 
lt|  ♦     AGA.DECCN.DOSE  (J) 
15  RETURN 
16 
17 
18 

19  RETURN 

20  OTHERWISE    LEI    T.INT     =    0 

21  LET    T.OLD    =    TL 

22  IF    T.DECCN  (SCLDIER)     IS    GT    TL,    LET    T.OLD    =    T.  DECON  (SOLDIER) 

23  REGARDLESS 

24  IF     (T.SASK  (SCLDIER)     IS    GT    T.  OLD)  AND  (T.rtAS  K  (SOLDIER)     IS    LT    T. CURRENT) 

25  LET    T.INT    =    I  .;iAS  K(SOLDIER) 

26  REGARDLESS     FOE    I   =     1    TO     7,    DO 

27  IF     (TA.PF.CHEM(I)     IS    GT   T  .OL  E)  A  ND  <TA.  P  P.  CHEM  (I)     IS    LT    T.  CURRENT) 

28  IF    T.INT    IS    NOT    EQUAL    TO    0 

29  FOR    J    -    1     TO    N.  AGENT,     DO 

30  LET    AG    =    J 

31  CALL    DEPOSITION    GIVEN    T.OLD,    T.INT    AND    AG    YIELDING    DEP(*) 

32  CALL    DOSE3.COMP    GIVEN    T.OLD,     T.INT,     AG     AND    DEP(*» 

33  LOOP 

34  LET    T.OLD     =    T.INT 

35  REGARDLESS    LET    T.INT    =    TA  .PF.CHEM (I) 

36  REGARDLESS    LOCP 

37  FOP    J    =     1    TG    N. AGENT,     DO 

39  IF^tCiNT    IS    NCT    EQUAL   TO    0 

40  CALL    DEPOSITION    GIVEN    I. OLD,     T.INT    AND    AG    YIELDING    DEP(*) 

41  CALL     CCSE3.CCBP    GIVEN    T.OLD,     T.INT,    AG    AND    DEP  (*1 

42  CALL    DEPOSITION     GIVEN    T.INT,     T. CURRENT    AND    AG    YIELDING    DEP  (*) 

43  CALL     CCSE3.CCHP    GIVEN    T.INT.     T. CURRENT,     AG    AND    DEP  {*) 

44  ELSE    CALL    DEPOSITION    GIVEN   T.OLD,    T. CURRENT     AND    AG    YIELDING    DEP(*) 

45  CALL    DOSE3.CCKP    GIVEN    T.OLD,    T. CURRENT,     AG    AND    DEP(*) 

46  REGARDLESS    LCCP 

47  RETURN 

48  END  "OF    ROUTINE    DOSE3 
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APPENDIX    D 
IMPLEMENTATION    IN    STAR 

A.       ISSUES 

1  •     1~%£  9.M.  Implementation 

Iirplsmen  ting  a  combat  model  intended  to  be  a  module 
within  a  high-  resolution  main  combat  simulation  such  as 
STAR  is  a  long  and  involved  process.  There  are  many  issues 
to  be  addressed  to  insure  -hat  the  main  combat:  simulation 
provides  the  input  required  by  the  model,  the  mcd^l  provides 
the  output  desired  to  the  main  simulation,  and  the  data 
structures  and  commands  are  compatible  without  errors  such 
as    multiply    defined    global    variables,    etc. 

The  first  issue  addressed  is  the  time  at  which  the 
chemical  agent  effects  model  is  to  begin  operation..  There 
are  two  possibilities:  one  choice  is  to  create  the  entities 
at  the  beginning  of  the  simulation  run;  input  the  vari- 
ables,etc.,  and  in  general  perform  ail  the  necessary 
housekeeping  tasks  required  to  place  the  module  into  opera- 
tion at  the  beginning.  The  model  can  than  be  invoked 
immediately  or  at  the  point  in  the  scenario,  if  known,  where 
chemical  agents  are  to  be  first  employed.  The  alternative 
procedure  is  to  slow  down  the  simulation  a  bit  at  the  moment 
the  first  appearsnce  of  chemical  agents  occurs;  this  reduces 
the  memory  and  other  requirements  up  front  but  forces  sched- 
uling  many    requirements   at    some   point    during   the    simulation. 

The  best  approach  depends  on  the  scenario  to  be 
exercised.  Given  the  relatively  short  real  time  lengths  of 
scenarios  exercised  on  STAR,  four  possible  situations  may 
occur.  The  first  involves  a  non-chemical  scenario.  Although 
these   are   becoming    increasingly    less      common   as   the    emphasis 
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en  integrating  nuclear  and  chemical  considerations  into 
modelling  has  its  effect  on  the  scenarios  developed,  there 
are  still  many  generally  accepted  scenarios  used  that  dc  not 
involve  chemical  play.  In  this  situation,  implementation  is 
moot . 

A  second  possibility  is  modelling  first  use  of  chem- 
icals, most  likely  at  the  outset  of  battle  as  part  of  the 
preparatory  fires.  This  option  may  restrict  chemical  use  to 
one  side  only,  as  reaction  times  may  prevent  retaliation  in 
the  first  few  hours  of  combat  modelled.  The  module  should 
be  implemented  at  the  onset,  with  the  probabilities  of 
treating  artillery  attacks  as  chemical  attacks  set  lew  at 
the    onset,    2nd    increased   as    the   battle   continues. 

The  third  situation  would  involve  modelling  a  battle 
at  sens  point  in  time  inter  chemicals  have  been  initially 
employed.  This  will  require  immediate  implementation  of  the 
model,  with  many  if  not  all  forces  in  high  degrees  of  chem- 
ical protection  and  high  probabilities  of  treating  attacks 
as   potentially    chemical    in    nature. 

The  final  possibility  is  the  initiation  of  chemical 
play  at  seme  point  after  the  battle  has  begun.  In  this 
instanca,  it  may  be  desirable  to  implement  to  chemical 
effects  model  at  the  time  that  chemicals  are  introduced, 
rather   than   at    the    beginning  of   the    simulation. 

2  •      Tasks   Required  to    Imp  lament    Model 

There  are  twe  major  tasks  required  to  implement  the 
model.  First,  the  temporary  entities  PERSON  and  ALARM  will 
need  to  be  created.  Currently,  neither  of  those  entities 
are  considered  outside  of  the  chemical  effects  model  and  a 
nuclear    carnage      assessment    model      under    development.  When 

these  entities  are  created,  the  arrays  whose  pointers  are 
stored  as  attributes  must  be  reserved,  and  a  few  (such  as 
AGA.IMPAIE    and    AGA.INCAP)    must    be   initialized.         The    general 


284 


concept  for  creating  these  entities,  as  developed  by  LTC 
Kelleher,  formerly  Chief  of  the  IRADOC  Research  Element, 
Monterey,  and  modified  by  the  author,  is  to  access  each  UNIT 
ir.    the   sets     BLUE.  ALIVE   and    RED.  ALIVE    and      determine   whether 

the  unit  has  a  crew.  If  it  does,  then  those  entities  are 
created,  and  they  are  filed  in  the  set  CREW  (UNIT)  .  It  is 
possible  that  a  PERSCN  entity  will  represent  the  UNIT.  If 
so,  the  initialization  routine  should  create  the  PERSON  nad 
store  the  entity  pointer  in  the  attribute  HUMAN (UNIT).  For 
each  FSRSCN,  the  entity  pointer  of  the  UNIT  is  stored  in  the 
attribute  ESSENCE(PEBSON) .  The  lethal  loss  threshold  distri- 
bution is  determined  from  the  distribution  D.LETH,  and  the 
global  variables  D.  IMPAIR  and  D.INCAP  are  used  to  generate 
the  inpairment  and  incapacition  dose  thresholds,  respec- 
tively. 'Ihe  UNIT'S  EIATOCN  should  be  accessed  to  determine 
the  appropriate  vectcr  of  protection  factors  to  be  imple- 
mented; these  can  be  stored  in  the  array  CHANGE.  ORDER  whose 
pointer  is  stored  in  the  attribute  CHEM. CHANGE.  The  UPDATE 
routine  will  automatically  update  the  protective  s-atus  and 
assess  leakage  factors  where  appropriate.  The  X. CURRENT  and 
Y. CURRENT  attributes  should  be  set  st  the  UNIT'S  X. CURRENT, 
Y. CURRENT.  The  CP  and  DEFNUM  of  the  PERSON  should  be 
determined    from    the    current    situation. 

In  addition  to  creating  the  entities,  the  global 
variables  and  attributes  peculiar  to  the  PERSON  need  to  be 
read  in.  The  user  input  requirements  are  given  in  Section 
E,  below.  Easically  there  are  two  types  of  input  required. 
The  first  are  the  probabilities  and  probability  distribu- 
tions that  drive  the  actions  taken  by  the  PERSONS  modelled. 
The  second  type  of  input  are  the  physical  constants  and 
characteristics  pertaining  to  the  chemical  agents  or  PERSONS 
and    ALARMS   modelled. 
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3«       Interfaces 

There  are  several  interfaces  -hat  need  to  be 
worked  cut  between  STAR  and  the  chemical  agent  effects 
model.  The  first  type  is  the  inputs  required  by  the  model 
from  STAB.  The  NUSSE  II  model,  as  modified  to  run  en  STAR, 
must  be  setup  so  that  it  can  be  called  from  the  routine 
UPDATE  and  will  provide  a  value  for  the  ground  deposition  in 
mg  /  sq.  cm  and  the  air  concentration  at  2  meters  in  mg  / 
cubic  meter.  A  routine  will  need  to  be  developed  to  figure 
cut  in  which  grid  the  PERSON  is  located,  so  the  proper 
values   can    be   accessed. 

The  means  of  placing  information  in  the  A. ROUND 
queue  must  be  developed.  Generally,  whenever  a  PERSON  is 
placed  in  a  set  VICTIM  (which  occurs  whenever  the  PERSON  is 
within  the  ellipse  of  effect),  the  time  and  nature  of  the 
round  that  initiated  this  placement  should  be  added  to  the 
A. ROUND  array  at  location  RDPTR  ♦  1,  and  then  RDPTR  must  be 
incremented    by    1 . 

A  subroutine  wita2.n  the  main  moo. el  must  be  written 
to  tie  in  CF  and  DEFNUM  changes  directed  by  the  main  simula- 
tion and  the  C?  and  DEFNUM  attributes  belonging  to  the 
PERSON.  In  addition,  if  the  PERSON  enters  a  vehicle,  his 
VEH.NC  attribute  must  reflect  the  NUMBER  (VEHICLE)  and  he 
must  be  placed  in  the  set  CREW (VEHICLE) .  In  addition, 
changes  in  the  UNIT'S  X. CUR  RENT,  Y. CURRENT  must  change  the 
associated    PERSON'S    attributes   X. CURRENT,    Y. CURRENT. 

Cther  routines  that  should  be  added  to  effectively 
utilize  the  chemical  effects  model  are  discussed  in  Chapter 
4.  This  model  will  not  reach  its  full  potential  until  these 
chanaes   are    realized. 
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B.       COMPUTER    ROUTINES    FOR    I HPLEHEHTATION 

1 .      Routines   For    Impiem  §nt  at  ion 

a.  PREAMBLE 

The  FREAMELE  enclosed  provides  the  definitions 
of  all  of  the  variables  and  entities  used  in  the  model.  It 
should  be  appended  to  the  PREAMBLE  of  the  main  simulation 
after  a  check  for  common  variable  names  has  been  made. 

b.  MAIN    (driver    program) 

The  driver  program  used  to  test  the  routines 
independently  has  been  included.  The  lines  dealing  with  the 
creation  cf  entities  and  the  reservation  and  initialization 
of   arrays   should    be    ac  particular   interest. 

c.  USER1. INPUT 

This  routine  was  used  to  read  in  and  echo  all 
user-input  varibles  dealing  with  probabilities  and 
probability    distributions. 

d.  US2R2.INFUT 

This  routine  was  used  to  read  in  and  echc  all 
user-input  varibles  dealing  with  physical  constants  and 
characteristics. 

e.  LI  ST. ATTRIBUTES 

This  routine  was  used  to  provide  a  printout  of 
the  arrays  belonging  -to  the  PERSON  that  are  stored  in  attri- 
bute pointers  (listing  the  associated  attributes  simply 
provides   a    memory  location    number)  . 
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f.       DISTRIB 

This  routine  is  used  as  a  function  to  provide 
random  numbers  frcm  a  choice  of  six  distributions: 
Deterministic,  Uniform,  Exponential,  Normal,  Logncrnal,  and 
Beta.  It  is  called  as:  DISTRIB  (Vector  Pointer),  where  the 
vector  is  configured  (Distribution  type,  1st  parameter,  2nd 
parameter).  The  routine  uses  random  number  input:  streams 
number    1;    this    may    be   changed    if    desired. 

2  •       Routines    For    Debugging 

a.  NO  3  SSI  I 

This  routine  was  used  to  simulate  the  ground  and 
air  depositions  and  concentrations  on  a  simple  20  x  20  grrd 
(lower  left-hand  coiner  coordinate  is  the  origin)  .  This 
routine  hears  no  res  emblence  to  the  rial  NUSSE  II  model  but 
can  be  helpful  in  debugging  routines  without  implementing 
the    main    model. 

b.  &HTILLEBY.  DRIVER 

This  routine  was  used  to  simulate  two  battery 
volleys  -  one  conventional,  one  chemical,  at  a  location  near 
the  PEHSCN  ty  providing  input  to  the  array  A. ROUND  and  the 
attribute    RCPTR  (PERSCN)  . 

3.      Routine    Cedes 


CODE 


1  it********  MASTER    PROGRAM  ************* 

2  PREAMBLE 

3  NORMALLY,     MOEE    IS    REAL    AND    DIMENSION    =    0 

4  GENEEAIE    LIST    ROUTINES 

5  TEMPORARY    ENTITIES 

6  ZVsRY     VEHICLE    HAS    A    NUMBER    AND    AN    OPEN. CLOSED    AND    OWNS     A    CREW 

7  EVERY     ALARM    HAS     A    WARNING,     AN    X. ALARM,     AND    A    Y. ALARM 
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8  EVERY     PERSON    HAS     A    DEE.GND,     A    DSP. AIR,     A    VEH. NO, 

9  A    T.MASK,     A   T.CHEMEET,    A    MASK.    A    MASKLEAK,    A    DEFNDK, 

10  A    CF,     A    T.CKC,    A    T.CP,    A     PF.CHEM,     A    PF.LEAK,     A    T. PF.CHEM, 

11  A    CHEK. CHANGE,     A    T. AG. IMPAIR,     A    T.AG.INCAP,     A    T.LETH, 

12  A    1.DECCN,    AN     OLDX,    AN    OLDY,     A    CHSMDET,     AN    AG.  DECON.  DOSE, 

13  AN     AG. CUM  CCS E,     AN     AG. IMPAIR,     AN    AG.INCAP,    AN    AG.LETH, 

14  A    COLOR,     A    VEH. SYS. TYPE,     A    VEH. WPN. TYPE,     AN    ESSENCE, 

15  A     SCONE,     A    RDPTR,     A    CONTAMINATED,     A    T.CONTAM,     AN    ANTIDOTE, 

16  A     T.NAA,     AN    X. CURRENT,    A     Y. CURRENT,     AND    A    NAME 

17  AND    MAY    BELONG    TO     A    CREW. 

18  ''VEHICLE    ATTRIBUTES 

19  DEFINE     NUf.EER,    OPEN. CLOSED    AS     INTEGER    VARIABLES 

20  '  'ALARM     ATTRIEUTES 

21  DEFINE    WARNING    AS     AN    INTEGER     VARIABLE 

22  DEFINE     X.ALASE    AND    Y. ALARM    AS     VARIABLES 

23  »« ATTRIBUTES    SERVING    AS     ARRAY    POINTERS 

2U  DEFINE    DEP.GND,    DEP.AIR,    CHEM. CHANGS,    T. AG. IMPAIR,     T.AG.INCAP, 

25  AG.  DECCN.DOSE,     AG.CUMDOSE,     AG.  IMPAIR.     AG.INCAP,     AG.LETH, 

26  T. PF.CHEM,     PF.CHEM,     FF.LEAK,     ANTIDOTE,     ROUND 

27  AS     INTEGER    VARIABLES 

23  ''ATTRIBUTES    STORING    INTEGER    VALUES 

29  DEFINE    CP,     MASK,     ESSENCE,     CHEMDET,     RDPTR,     DEFNUM, 

30  COLOR.     VLn.SY3.TYFE,     VEH  .  W  P  M.  TYPE  ,    CONTAMINATED, 

31  VEH. NO,     ANE    NAME    AS     INTEGER    VARIA3LES. 

32  • 'ATTRIBUTES    STORING    TIMES    OF    ACTIONS    TAKEN 

33  DEFINE    T.MASK,    I. CHEMDET,     T.OBC,     T.CP,     T.DECON,    T.CONTAM, 
3a  T.:JAA     AS    VARIABLES 

35  «» ATTRIBUTES    STORING    REAL    VALUES 

36  DEFINE     MASKLEAK,     OLDX,    CLDY,     X. CURRENT,     Y. CURRENT 

37  Ac    VARIABLES 

38  ■ 'GLOBAL    VAPIABLES     SUBSCRIPTED     BY    AGENT 

39  DEFINE     CEP.G.CLD,     CEP.  A. OLD,     AG. DECAY,     OLD. DOSE,    DCR, 

40  A3S,     AG.INHAL.FACTOR,    MIN.G.CHE3,     HIN.A.CHEH,     AG.  PICKUP, 

41  D. IMPAIR,    D.IN.CAP.     AGENT. TYPE 

42  AS     1-DIMENSIONAL    VARIABLES 

43  ''GIC3AL     VAEIAELE5     WITH     DIFFERENT    VALUES     FOR    EACH    SIDE 

44  ••        AND    SUBSCRIPTED     BY    BCCY    AREA    OR    AGENT 

45  DEFINE     FF.MAX,    AG . AL.  T BRE5 H,     PC. PP. LEAK    AND    SKIN 

46  AS    2-DIMENSlONAL    VARIABLES 

47  '"GLOBAL     VARIABLES     WITH     DIFFERENT    VALUES     FOR    EACH    SIDE 

48  DEFINE    PC  .  E  EL  .  DECOS,     PC.NAA,     PC.CHC, 

49  PC.  MASK,     EC.MSKLEAK,     PC.  MOPP,     PC.  IMS .  DECON  ,     AL.MAX.DIST, 

50  NAA. FACTOR.    HOLT. AG.  EECON 

51  AS     1 -EI  SESSIONAL    VARIABLES 

52  •  'GLOBAL     VARIABLES     WITH     DIFFERENT    VALUES     FOR    EACH    SIDE 
5  3  • 'ANE    HAVING    3    3ECONE    DIMENSION 

54  DEFINE    DT.MA5K,    DT.NAA    AS    2-D IMENSIONAL    VARIABLES 

55  ''GLQ2AL    TIME    VARIABLES 

56  DEFINE    T. CURRENT,     TL ,     T.CHEMCURR,     AND    DELT    AS    VARIABLES 

57  ''AFFAYS     WHCSE     POINTERS     ARE    STORED    AS    ATTRIBUTES 

58  DEFINE    CSP.G.CUP.R,    DEP.A.CURR,     PFA.CHEM,     PFA.LEAK, 

59  TA. PF.CHEM,    TA.INCA?,    TA. IMPAIR,     AGA.CUMDOSE,    AGA. IMPAIR, 

60  AGA.INCAP,     AGA.LZTH,     AGA . DE CON . DOSE,     A. ANTIDOTE 

61  AS     1-CIMENSIONAL    VARIABLES 

62  ' 'OTHER     DECLARATIONS 

63  DEFINE    SOLDIER,    OLDCP,     CHEMSIT    ANE    SIDE    AS    INTEGER    VARIABIE5 

64  DEFINE     N. PERSON,     N  .VEH . S YS . IY FE ,     N . VEH . WPN. TYPE ,    N. VEHICLE, 

65  N. ALARM,     N.SIDE     AND     N. AGENT     AS    INTEGER    VARIABLES 

66  DEFINE     DISTF.IE    AS     A    REAL    FUNCTION 

67  DEFINE     A.RCUND    AS     A    2- EIMENSI CNAL    ARRAY 

68  DEFINE     VEH.PTR,    ALFTR,     ESRSPTR    AS    1 -DIMENSIONAL,    INTEGER     ARRAYS 

69  DEFINE    CHANGE. ORDER    AS     A    2-DI MENSIONAL    ARRAY 

70  DEFINE    D.LETH    AS     A    2-D IHENSIO NAL    ARRAY 

71  DEFINE    ET.PF    AS    A     4-DIMENS ION AL    ARRAY 

72  DEFINE    EI. DETECT    AS    A    5-DI MENSIC NAL    ARRAY 

73  DEFINE     FC.ACT.OHC    AS     A    2- DIME NSIONAL    ARRAY 

74  DEFINE    DT.OHC    AS    A    3-DIMENSIO NAL    ARRAY 

75  DEFINE    ET.CECCN    AS    A    4 -CIM ENS  ION AL    ARRAY 

76  DEFINE    D.MSKLEAK    AS    A     2-DI  MENSIONAL    ARRAY 

77  DEFINE    DEF.RED    AS     A    3- EIMENSI ON AL    ARRAY 

78  DEFINE    D.PF.LEAK    AS    A     3-DI MEN  SIGNAL    ARRAY 

79  DEFINE    UPTR    AS    A     1 -DIMENSION AL    ARRAY 

80  DEFINE    SW.EREATHING    AS    A   3-DIMENSIONAL    ARRAY 

81  DEFINE    SW.  NEC.  FILTER    AS    A    6-DIHENSIONAL    ARRAY 

82  END  "OF    PREAMELE 
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CODE 

1  MAIN 

2  DEFINE    I.J.K.I.B   IS     0-DI HENSION AL,     INTEGER    VARIABLES 

3  READ    N. VEHICLE,     J!.  ALARM,     K.  PERSON,     N.  VEH.  SYS.  TYPE,    N.  VEH.  WPN.  TYPE  , 

4  N.SIDE,    N. AGENT 

5  LIST    N. VEHICLE,    N.  ALARM,     N.  PERSON,    N.  VEH.  SYS.  TYPE,    N.  VEH.  WPN.  TYPE  , 

6  N. SIDE,     N. AG  EOT 

7  RESERVE    VZH.FTR(*)      AS    N.  VEHICLE 

8  RESERVE     ALFTE(*)     AS     N. ALARM 

9  RESERVE     FERSFTP  (*)      AS    N.FERSON 

10  RESERVE    UETR(*)     AS     3 

11  RESERVE    EEF.G.OLD(*>  ,    DEP.A.OLDf*}     AS    N. AGENT 

12  RESERVE    CHANGE.  CEDER  (*  ,  *)     AS    N.PERSON    3Y     10 

13  RESERVE    C.LETHj*,*)      AS    N. AGENT    SY    3 

14  RESERVE    D.IMEAIF  {*)  «    D.INCAP(*J     AS    N.  AGENT 

15  RESERVE    AGENT. TYPE {*)     AS    N. AGENT 

16  FOR    I   s     1    TO    N.  VEHICLE,     CO 

17  CREATE    A    VEHICLE 

18  READ    NUMEER  (VEHICLE)  ,     OPEN.  CLOSED  (VEHICLE) 

19  LET    VEH.  FIR  (NUMBER)     =    VEHICLE 

20  LIST    ATTRIBUTES     OF    VEHICLE 

21  LOOP 

22  READ    D. IMPAIR,     D.INCAP,     E.LETH 

23  LIST    D.IMFAIF,    D.INCAP,     D.LETH 

24  FOR    I    =     1    TC    N.  ALARM,    DO 

25  CREATE    AN    ALARM 


26  READ    X.&LAEH  (ALARM)  ,     Y. ALARM  (ALARM) 

"~R(I)     =    ALARM 
28  LIST    ATTRIBUTES    OF    ALAPM 


27  LET    ALFTR  (I)     =    ALA! 


29  LOOP 

30  FOR    1=1     TC    N.FEFSON,     DO 

31  CREATE    A    PERSON 

32  READ     SAME  (PERSON)  ,    MASK  (PERSON) 

33  PESERVE    PFA.CHEM(*)     &S    7 

34  FCR    J    =     i     10    ],     READ    FFA.CHEH(J) 

35  READ    CF(PEFSCN),     VEH . SYS.  TY P E  (PERSON)  . 

36  VEH.  WPN.  TYPE  (PERSON)  ,    COLOR  ( PERSON)  ,    X.  C0R3  ENT  (PERSON)  , 

37  Y. CURRENT  (PERSON)  ,     AND    VE  H.  NO  (PERSON) 

38  LET    PERSPTR  (NAME)     =    PERSON 

39  IF    VEH. NO  (PERSON)     IS    NCT    EQUAL    TO    0 

40  FILL    PERSON    IN    CR  EW  (VEH.  P  TR  (  VEH. NO)  ) 

41  REGARDLESS 

42  LET    CHE.'!. CHANGE  (PERSON)     =    CH  ANGE.  ORDER  (NAME  ,*) 

43  FOR    K     -     1    TC    10.     LET    CHANGE. ORDER ( NAME ,K)     =    -1  »•  INITIALIZE 

44  RESERVE    I  E  P.  G.CUR  R  (*)     AS    N. AGENT 

45  LEI    DEE. GKD  (PERSON)     =    CEE  .G.  CuKR  (.*) 

46  LET    DEP.G. CURE (*>=    0 

47  RESERVE    DEE.  A.CURRf*)     AS    M.  A  GENT 

48  LET    DEF.AIR(PERSON)     =    CEP.  A.  CURR  ( *) 

49  LET    DEP.  A.C'JFR(*)     =    0 

50  LET    PE-CHEM  (PERSON)     =    PFA.CHEM(«) 

51  LET    PFA.CHEM  (*)      =    0 

52  ■       FESSRVE    PEA.  LEAK  (*)      AS    7 

53  LET    PP. LEAK  (PERSON)     =    FFA.LSAK(*). 

54  LET    PFA.LEAKf*)      =    0 

55  RESERVE    TA.  FF.CHSM  (*)      AS    7 

56  LET    T.EF.CHEH  (PERSON)     =    TA.  P  F.  CHEM  (*) 

57  LET    TA.FF.CHEti(*)     =    0 

53  RESERVE    TA.IMPAIR(*)      AS    N.  AGENT 

59  LET    T. AG. IKE  AIR (PERSON)    =    TA.IMPAIR(*) 

60  LET    TA.IMPAIF  (*)      =    0 

6  1  PESERVE    TA.INCAPf*)      AS    N.  AGENT 

62  LEI    T.  AG.INCAP(PERSON)     =    TA.INCAP(*) 

63  LET    TA.INCAP  (*)      =    0 

64  RESERVE    AG  A.  CECON  .  DOS  E  (*)     AS    N.  AGENT 

65  LET    AG.DECCN.DOSE  (PERSCNi     =     AG A . DECON . DOSS (*) 

66  LET    AGA. CECCN.DOSE  (*)     =   0 

67  RESERVE    AG  A . CUM  DOSS (*)     AS    N.  AGENT 

68  LET    AG.CUMDCSE(PERS0N[    =    AG A . CUMDOSE (*) 

69  LET    AGA.CUMDCSS (*)     =    0 

70  RESERVE    AGA.LETH(*)     AS    N.  AGE  NT 

71  LET    AG.LETH(FERSON       =    AGA.LETH(*1 

72  FOR    J    =    1    TC    N.  AGENT,     LET    AGA.LETH(J)     =    DISTRIB(    D.LETH  (J,*)     ) 

73  RESERVE    AGA.  IMPAI  R  (*)     AS    N. AGENT 

74  LET    AG. IMPAIR  (PERSON)     =    AGA.  IMP  AIR  (*) 

75  FOR    J    =    1    TO    N.  AGENT,    DO 

77  L00PLET    AGa*IMPiIB<J)     ■    D.IMPAIS(J)     *    AGA.LETH(J) 

78  RESERVE    AGA.INCA?(«)     AS   N. AGENT 
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CODE 


79  LET    AG.INCAF  (PERSON)      =    AGA.INCAP(*) 

80  FOR    J    =    1    TO    K.  AGENT,    DO 

81  LET    AGA.INCAP(J)      =    D.INCAP(J)     *    AGA.LETH(J) 
32                         LOOP 

83  LIST     NAME  (FEESON)  ,     AGA. IMPAIR,     AGA.INCAP,    AGA.LETH 

84  LET    AGA.IMEAIR(*j     =    0 

85  LET    AGA.  INCAF  (*)     =    0 

86  LET    AGA.LETH  (*")     =    0 

87  FESERVE    A.  ANTIDOTE  (*)     AS    H.  AGENT 

88  LET    ANTIDOTE  (PERSON)      =    A.  ANT  IDOTE  {*) 

89  FOE    J     =    1    TO    N.  AGENT,     LET    A.  ANTIDOTE  (J)     =    1  ''INITIALIZE 

90  LET     A. ANTIEOTE(*)     ■    0 

91  RESERVE    A.SOUND  (*,*)      AS    50    BY    2 

92  LET    ROUND  (PERSON)     =    A  .  SOU ND ( *  ,* ) 

93  LET    A. FOUND  (*,*)      =    0 

94  LET    OLDX  (PERSON)      =    X .  CURRENT  (PERSON)  •  'INITIALIZE 

95  LET    OLEY  (FERSCHJ     =    Y .  CURR  ENT  (PERSON) 

96  LIST    ATTRIEUTES    OF    PERSON 

97  LOOP 

93       "READ    IN    AND    ECHC    GLOBAL    INFUT    VARIABLES 

99  CALL    USEE  1  .  INPUT  "PROBABILITIES    S    DISTRIBUTIONS 

100  CALL    USER2.  INPUT  "PHYSICAL    CONSTANTS 

101  LET    UFTRM)     =    2  "FOR     DNIFORM(0,1)     RANDOM    DRAW 

102  LET  UPTP  2)  =  0 

103  LET  UPTSj3i  =  1 

104  LEI  AGENT. TYPE  (1)  =1 

105  LET    DELT    =     10 

106  LET    T. CURRENT    =    1 30 

107  LET    SOLDIER    =     lERSPTR(IO) 

108  "        FOR    K    =     1    TC    3,    0  0 

109  LET    T.CUERENT    =    110*    (D£LT    *    2) 

110  LET    TL    =    I. CURRENT    -    DELT 

111  LIST    T. CURRENT 

112  "       EOF    L    =     1    TO    5,    DO 

113  LET    M    =     2 

114  LET    50LDIER  =  FEFSPTR  (M) 

115  LET    DEP.  G.CUFR  (*)      =    D  E?  .  GND  (SO  LDI  ER)  "INITIALIZE 

116  LET    DSP.  A.CCFS  (*)      =    D  £P  .  AIR  (SOLDIER) 

117  LET    PFA.CHEM(')    =     PF. CHEM  (SOLDIER) 

118  LET    PFA.LEAKI*)     =    PF.  LE  AK  (SOLD  IER) 

119  LEI    IA.PF.CEEK  (*)      =    T.  PF.CHEM  (  JGLDIEE) 

120  LET    IA.  IKPAIF- (*)     =     T.  AG  .  IMP  AIR  (SOLDIER) 

121  LET    TA. INCAF  [*)    =     T.AG  .  INCA  P  (S  CLDIER) 

122  LET    AGA.  CECCN.  COSE  (  *)     =    AG.  DECON.  DOSE  (SOLDIER) 

123  LET    AGA.CUMDCSE  (*)      =    AG  .  CUM  DOS  E  (SOLDIER) 

124  LET    AGA. IMPAIR  (*)      =    AG  .  IMPAIR  (  SOLDIER) 

125  LET    AGA.  INCAF  (*)     =     AG.  I NCAP  (SOLDIER) 

126  LET    AGA.LETH  <*)     =    AG.  LE  TH  (SOLD  IER) 

127  LET    A.RCUND  (*,*)     =     ROU  NE  (SOLDI  ER) 

128  LET    A.  ANTIDOTE  (*)      =    ANTIDOTE  (S  OLDIER) 

129  LET    SIDE    =    CCLCR  (SOLDIER)     ♦    T 

130  LET    DEFNUM  (SOLDIER)     =    5 

131  CALL    CHEM. CHECK 

132  CALL    LIST. ATTRIBUTES 

133  "        LOOP 

134  "LOO? 

135  STOP 

136  END  "0?    MAIN    PROGRAM 
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CODE 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


RCUTINE    USER1. INPUT 

RESERVE    DT.  ?F  (*,*,*,  *)     AS    N. VEH . SYS. TYPE    BY    H.  VEH.WPN.TYEE 
E i    7     EI    3 

""■    ilASK  (*,*)     AS     N.SIDE     BY    3 


(*)    a: 


K  C  i>  C  H 1 

RESERVE     - C ■ " 

RESERVE    C.HSKISAK(*r'*)     AS    S.  SIDE    3Y    3 
RESERVE    CI.NAAf*,*}     AS    N.SIDE    3Y    3 
RESERVE     FC.OHCf*)     AS    N.SICE 
RESERVE    DT.OHC?*.*,*)     AS    N.SIDE    BY    3    BY    3 
RESERVE    PC.ACl.OHC  (*,*)      AS    N.SIDE    3Y    2 
RESERVE    D.PF.LEAK(*,*,*)     AS    N.SIDE    BY    7    BY    3 
RESERVE     PC.  IHK.  CECON  (*)  ,     PC.  DEL  .  DECO  N  (*)      AS    N.SIDE 
AK  (*,*        AS    N.SIDE    3Y    7 


RESERVE     PC.PF.L] 

RESERVE     PC.NAAf*)     A'S'N.SIDE 

RESERVE     CT. DETECT(*, *, *, *,*)     AS 


4    BY    N.  AGENT    BY    5    BY    2    BY    3 


RESERVE    PC.KASK  (*)  ,     PC.  MCF?  ( *)      AS    N.SIDE 

RESERVE     CT.  DECON  (* ,  *,*,*)     AS    N.SIDE    BY    N. AGENT    BY    7    BY    3 


•  •READ    IN    AND 


CHC    GLOBAL    INPUT    VARIABLES 

»  'DISTRIBUTION    TIMES    TO    DON    PROTECTIVE    CLOTHING 


B  EAD    DT.PF 

PRIM    1     LINE    THUS 

ARRAY    DT.PF 
FOR    1=1     TC    N. VEH. SYS. TYPE,    FOR    J=1    TO    N . VEH . WPN  .TYPE, 

FOR    K--1    TC    7,    DO 

PRINT     1    LINE    WITH    I,     J,    K,    DT.  PF  (I ,  J,  K  ,  1)  , 
DT.PF  fIrJ.K,2)  ,    DT.PF(I,J  ,K,3)     THUS 
X=**       J=«*       K=**       **       **       ** 
LOOP 

READ    DT. MASK 
LIST    DT.MASK 

READ    PC.M38LEAK,    D-.HSKLEAK 
LIST    PC.MSKLEAK,    D.MSKLEAK 
R  EA  C    DI.NAA 
LIST    DT. NAA 

READ    PC.ChC,     PC.ACT.OHC 
LIST    PC.OKC,    PC.ACT.OHC 
READ    DT.  CHC 
PRINT    1     LINE    THUS 

ARRAY     CT.CHC 
FOR     K  =  1     TO    N.SIDE,     FOR     L=1    TO    3  ,    DO 


"DISTR.  OP  MASKING  TIMES 

"?ROB.    6    DISTR.    0?    a  ASK    LEAKS 


43 
49 
50 

K=** 
51 
52 
53 
5a 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
63 
69 
70 
71 
72 


PRINT     1    LINE    WITH    K,     L.    DT.OHC(K,L,1 
DT.OHC  (K.1,2)  ,    DT.OHCfK,  L .3)     THUS 
K  =  **       L=**  *##.**       ***^**       ***#** 

LOOP 

READ    D. PF.LEAK 
PRINT    1     LINE    THUS 
ARRAY     C.FF.LEAK 

FOR    K=1     TO    N.SIDE,     FOR     L=1    TO    7 ,    DO 
PRINT     1     LINE    WITH    K, 


!>  ' 


:NT     1    LINE    WITH    K,     L,    D.PF  .  LEAK  (K.  L  ,  1)  , 
D.PF.  LEAK  {K,L  .2)   .     D.  PF  .  LE  AK  (  K,  L  ,3)      THUS 


L=  ** 
LOCE 

READ    PC.  IMM.EECCM,     PC.DEI. DECON 
LIST    PC.IMM.  CECCN,     PC.  DEL.  DECON 
R  EAD    PC. PF. LEAK 
LIST    PC. PE. LEAK 
READ    PC.NAA 
LIST    PC .NAA 

READ    DT*.  DETECT  ••DISTR.     OF    CHEM.     DETECTION    PROEABILITIES 

PRINT    1     LINE    THUS 

ARRAY     CT. DETECT 
FOR    1=1     TO    4,    FOR   J=1    TO    N. AGENT,     FOR    K= 1     TO    5, 

FOR    L=1    TC    2,    DO 

K,    DT.DETECT(I,J,K,  1,1) , 


RINT     1    LINE    WITH    I,     J. 

DT.  DETECT  (I,  J  ,  Kr  1  ,2)  ,     DT.  DETECT  (I  ;  J  \K,  1 ,  3)  , 
DT.  DETECT    I,  J,K,2,  1)  ,     DT.  DETECT  (I,J,K,2,2)  , 

1    T  HUS 

**      **  i.=  2       **      ** 


DT. DETECT    I, J ,K,2i  3 
j=*»       k=**       L=1       ** 


1=** 

LOOP 

READ    PC. MASK,    PC.MOPP 

LIST    PC. MASK,     PC.MOPP 

READ    DT.  DECON 

PBINT    1     LINE    THUS 


73 
74 
75 
K 
76 
77 
78 


ARRAY     DT. DECON  „     „    ,„_„_ 

FOR    K    =     1    TO    N.SIDE,     FOR    L    =    1     TO    N. AGENT, 
PRINT    1    LINE    WITH    K,     L,    I,     D 
CT. DECON  (K,L,I, 3)     THUS 
,    **       l    =    **       I    =    **      :        ****         ****  **** 

LOOP 
RETURN 
END  "OF    ROUTINE    USER1. INPUT 


,    FOR    I    =    1    TO    7.     DO 
T.DECON(K,L,I,  1)  ,    DT.  DECON  (K,L,I,2)  , 
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CODE 


1  BOUTIN  E    USEB2.IHEUT 

2  BESEBVE    AG.DECAYf*)      AS    N. AGENT 

3  RESZHVE    MIN.G.CEEM (*),     HIN.A.CHEHi*)     AS    N. AGENT 
a  RESEPVS    FF.tfAX(*,*)     AS    N.SIDE    BY    7 

5  RESERVE    CEP. RED  <*,*  ,  *)     AS    M.  AGENT    BY    .3    BY    2 

6  RESERVE    M  .  MAX.  CIST  ( *{  .     NAA.  FACTOR  (*)     AS    N.SIDE 

7  RESERVE    ABSf*)     AS    N.  AGENT 

8  RESERVE    AG.  AL. THRESH  <*,*)     AS    N.SIDE    BY    a. AGENT 

9  RESERVE    SKIN(*,*i    AS    N.SIDE    BY    7 

10  RESERVE    SW.8EC.FILTEB(*. *,*,*,*,*)     AS    N. VEH. SYS. TYPE 

11  3Y    N. VEH. WEN. TYPE     EY    2    EY    3    B Y    2    3Y    N. AGENT 

12  RESERVE    AG ,  INHA1  .FACTOR  (*)  ,    AG.  PICKUP  (*)     AS    N.  AGENT 

13  RESERVE    BULT.  AG.DECON(*)     AS    N.SIDE 

14  RESERVE     5  «.  BR  SAIHI  NG  <*  ,  *  ,  *)     AS     N.  VEH  .  SYS  .  TYPE    3Y    N.  VEH.  WPN.  TYPE    BY 

15  RESERVE    DCR  f  *)     AS    N. AGENT 

16  READ    SIN.G.CHES,    BIH.A.CBEH         «'MINIHUtt    SIGNIFICANT    GROOND    AND 

17  LIST    8IN.G.CHEM,    MIN.A.CHEH  ■ ' AIR    DEPOSITIONS 

18  READ    PF.  MAX 

19  LIST    FF.MAX 

20  READ    DEP. FED 

2  1  PRINT       1     LINE    IH  US 

22  ARRAY     CEF.RED 

23  FOR    J    =     1    TO    N. AGENT,    DO 

24  FRUIT       1     LINE   WITH    DEP. RED  (J  ,  1 ,  1)  ,DEP  .  RED  (J  ,  1  ,  2)  ,  DEP  .  RED  (J  ,2  ,  1 )  . 

25  DEP.PED(J,  2.2)  , DEE. RED  (J. 3  .1)  , DEP . RED (J, 3 , 2)     THUS 

26  *.***  *.***  *m  **4    i#***      *.***  *#*** 

27  LOOE 

28  REAL  SW. NEC. FILTER 

29  PRINT   1  LINE  THUS 

30  A. '.PAY  SW. NBC. FILTER 

31  FOR    K    =     1    TC    N.  VEH.  SYS.  TYPE,     FOR    I.    =    1    TO    N . VEH. WPN.  TYPE. 

32  FCP    i\    =    1    TO    2,     FOR    M    =    1    TO    N.  AGENT,     DO 
33 

3  4  K , L , 

35  K,L, 

36  K,L, 

37  §  w . 

38  SW.NBCZfiLTEB A**'.**',*',  2',  \',*\    =    *>*  \**',**',*',2',2wt*S     -    *".** 

39  SW.  N3C.  FILTER  <**,**,*,  3,  1,*      ■    *.**  (**,**,*, 3, 2 , *       =    *.** 

40  LOCE 
'41  REAC    AL..1AX.CIST 

42  LIST    AL.flAX.CIST 

43  REAC    NAA.EACTCB 

44  LIST    NAA. FACTOR 

4  5  REAC    AG.  CECAY 

46  LIST    AG. DECAY 

47  REAC    ABS 

48  LIST    ABS 

4  9  REAC    AG. A L. THRESH 

50  LIST    AG. AL. THRESH 

51  REAL    SKIN 

52  LIST    SKIN 

53  REAC    AG.  INKAL. FACTOR 

54  LIST    AG. INHAL. FACTOR 

55  REAC    AG. EICKUF 

56  LIST    AG. PICKUP 

57  REAC    MULI.AG.CECON 

58  LIST    MULT.AG.DECCN 

59  REAL    SW. BREATHING 

60  PRINT       1     LINE    THUS 
ARRAY    SW. BREATHING 

61  FOR    K    =     1    TO    N.  VEH.  SYS. TYPE,    FOP    L    =    1    TO    N.  VEH.  W  PN.  TYPE,     DO 

62  PRINT    2    LINES    WITH    K  ,  L.SW.  BREATHING  (K,  L,  1 ),  K,  L,  SW.  BREATHING  <K,  L  ,2) 

63  K,  L,SW. BREATHING  ( K  ,L , 3),    K,L, SW. BREATHING  (K, L,4) , 

64  K,L,SW.EBEATHING (K,L,5)    TKCS 

S  W.3REATHING  (**.**, 1)     =    **.  **  I  **    **    2\     =    **    **  /**    **    ->\     _    **    ** 

sw.3reathing]**;**;4j  =  **.**     i**;**:Il  =  **:**     <**'**'3>  *  **•** 

66  READ  OCR 

67  LIST  DCH 

68  BETUBN 

69  END  ••OF    BCDTINE    USEB2.INFUT 
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CODE 


1  ROUTINE    NUSSETI    GIVEN    T.CUR,     X.CUR,     Y.CUR,    AND    AG 

2  YIEIDING     CEf.GME    AND    DEP.AIR 

3  •  'ROUTINE    PROVIDES     DEPOSITIONS     FOR    TESTING    PROGRAM 

4  PRINT       1     LINE    THUS 
ROUTINE    NUSEII    CALLED 

5  NORMALLY,     DIMENSION     IS     0 

6  DEFINE    T.CUR,     X.CUR,    Y.CUR,     DSP.GND,     DEP.AIR,     ADEP,     GDEP, 

7  XTHETA,     YTHETA    AS    REAL    VARIABLES 

8  DEFINE    DEF.G    AND    DEP.A     AS    REAL,     2-DI HBNSION AL    VARIABLES 

9  DEFINE    AG,    X    AND   Y     AS    INTEGER    VARIABLES 

10  RESERVE     DEP.G(*,*)      AND     DEF.Af*,*)     AS    21     BY    21 

11  »•     ELIMINATE    ALL   BUT    ONE    AGENT 

12  "LIST    AG,     T.CUR 

13  IF     AG    IS     NOT    EQUAL    TO    1  ,     GO    OUT 

14  «•     SIART    SIMULATED     PATTERN    AT    T. CURRENT    =     130 

15  OTHERWISE    LET    T. ROUND    =     130 

16  IF    T.CUR    IS    LESS    THAN    T.  ROUND,     GO    OUT 


17  REGARDLESS    LET    DA     =    tIAX.Fi    0,      ( 1  0- (  (T.  CU  R-T.  ROUND) /DELT)  )  ) 

13  LET    DG    =    MIN.Fj    10,     (  (T  .  CUR -T.  ROUND) /DELT)  ) 

19  FOR    X    =    2    TC    20    ,     DO 


20  "INITIALIZE    GRID    PAIIERNLOWER    BOUNDARIES 

21  LET    DZF.A(X,1>     =     DA    *     ((X-1J+1) 

22  LET    DEE.G<X,li    =     DG    *     (JX-1)  +1) 

23  ALSO    FCB    Y    =    2    TO    20,     CO 

24  LET    DE?.A(1,Y)     =    DA    *     (1+  <Y- 1)  ) 

25  LET    EZF.G(1,Y)     =    DG    *     M+jY-lii 

26  «'     SET    UP    REGAINING    GRID     FATT2RN 

27  "     START    SIMULATED    PATTERN    AT    T. CURRENT    =     130 
23  LET    DEF.A(X,Y)     =     DA    *     (X+Y) 

29  LET    D2?.G(X,Y)_    =    DG    *     (X+ *) 

30  • •     INTEFFOLATE    VALUE 

31  IF  ((X.CUR    IS    GE     (X- 1)  )  AND  ( X.  CUR    IS     LT    X)      AND 

32  Y.CUR    IS    GE     (Y  -  1)  )  AND  ( Y .  CUE    13     LT    1')) 

33  "LIST    X.CUR,    Y.CUR,    X.     Y 

34  LET    XTHETA     =    X.CUR    -     (X-1) 

35  LET    YTHETA    =    Y.CUR    -     (Y-1) 

35  LET    GDEPI     =    DEP  .G  ( (X-T }  ,  (Y-1 ) )     + 

37  (XTHETA*  (DEP.  G(X,  (Y-1)  )  -DEP.  G(  (X-1)  ,  (Y-1))  )  ) 

33  LET    GDEP2    =    DEP  .G  (  (X- 1  ),  Y)     + 

39  (XTHETA*  (DEP.  G  (X, I)  -DSP.G  (  (X-1)  .  Y)  )  ) 

40  LET  CEP.GND  =  0.01  *  fGDEPl  +  ( YTH2TA* (GDEP2  -  GDEP1))  ) 

41  LET  ADEP1  =  DEP  .  A  (  (X- 1)  ,  (Y-1 ) )  ♦ 

42  (XTHE^A*(DEP.A(X,(Y-1))-DEP.A((X-1),<Y-1)))) 


44  ( XT  b  ETA*  (DEP.  A  (X,Y)  -DEP.A  (  (X-1)  ,Y)  )  ) 

45  LET    DEP.AIR    =    0.001     *     (ADEP1    ♦     (YTHETA*  (ADEP2    -ADEP1))     ) 

46  REGARDLESS 

47  LOCP 

48  "LIST  XTHETA,  YTHETA 

49  "LIST  GDEP1  ,GDEE2,  &DEP1.ADEE2 

50  LIST  DEF.GND,  DEP.AIR 

51  RETURN 

52  'OUT' 

53  PRINT       1     LINE    THUS 

ROUTINE    NUSSEII    LEFT    -    AG     NE    1     OR   T.CUR    LT    130 

54  LET    DEE.GND    =   0 

55  LET    DEP.AIE    *   0 

56  RETURN 

57  END  "OF    NOSSEII    ROUTINE 
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CODE 


1  ROUTINE    AHTILLEHY. DRIVES 

2  I?    I. CURRENT    IS    HOT    EQUAL   TO    130,    RETURN 
.3  OTHERWISE 

4  PRINT       1     LIME    THUS 
ROUTINE    ARTILLERY. CEIVER    CALLED" 

5  FOB    I    =     1    TC    6,     CO 

6  LET    A. ROUND  (1,1)     =122  '"A    BATTERY    VOLLEY 

7  LET    A.RCUNC  (1,2)     =    0  '  ■  CONVENTIONAL 

8  LOOP 

9  FOR  I  =  7  TO  12,  DO 

10  LET  A. ROUND  (1,1)  =  126  "'A  BATTERY  VOLLEY 

11  LET  A. 5CUNC  (1,2)  =  1  « 'CHEMICAL 

12  LOOP 

13  LET  RDPTR  (SCLCIER)  =  12 

14  LET  ROUND  (SOLDIER)  =  A.  KCOND  (*) 

15  RETURN 

16  END     "OF  ROUTINE  ARTILLERY. DRIVE  R 


CODE 


1  ROUTINE    CISTRIE     (    X    ) 

2  PRINT       1     LINE    THUS 
ROUTINE     FUNCTION    DISTRT3    CALLED 

3  DEFINE    X     iS     £    SEAL,     1-DI  PENSION  AL    ARRAY 

4  DEFINE    ANSWER    AS    A     REAL    VARIABLE 

5  RESERVE    X  (*)     AS    3 
5  30    TC    DIST  (     X  (1)     ) 

7  'DIST(I)'              "DETERMINISTIC 

9  LET    ANSWER    =    X(2) 

9  GO   cur 

10  'DIST (2) •  " UNIFORM 

11  LET     ANSWER    =    UNIFORM. F(     X  (2)  ,    X  (3)  ,     1) 

12  GO    CUT 

13  •DISI (3) •  • 'NORMAL 

14  LET     ANSWER    =    NORMAL.  F(    X(2),     X  (  3)  ,     1) 

15  LET    ANSWER    =    MAX.?(    0,     ANSWER    ) 

16  GO    CUT 

17  'DISTf4)«  "LCGNCRMAL 

13  LET    ANSWER    =    LCG.  NO  RMAL.  F  (    X  (2)  ,     X  (3)  ,    1) 

19  GO  CUT 

20  'DIST  (5)  '  "EXPONENTIAL 

21  LET  ANSWER  =  EXECN ENTI AL . F (  X(2),  1) 

22  GO  CUT 

23  'DIST  (6)  •  "  BETA 

24  LET  ANSWER  =  BETA.  F  (  X(2),  X  (3)  ,  1) 

25  GO    CUT 

26  'OUT' 

27  SETURN    WITH    ANSWER 

28  END  "OF    ROUTINE    EISTRIB 
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C.   VARIABLES  REQUIRING  05ER  INPUT 


Th€  variables  listed  belcw  require  user  input. 
defined  in  the  glossary;   their  usa  is  documented 
3  and  Appendix  C. 


They  ar  e 
,n  Chapter 


1  •   Fro  1:  abilities  and  p  rob  ability  Distributions 


NAME 

D.HSKLEAK 
D. PF.LEAK 

DT.DECCN 

DT. DETECT 

DT. MASK 

DT.NAA 

DT. CHC 

DT.  FF 

N. AGENT 

N. SICE 

B.VEH. SYS. TYPE 

N. VEH. WEN. TYPE 

PC. ACT. CHC 

PC. DEL. EECCN 

PC. IMM.DECCM 

PC. MASK 

PC. KCPP 

PC.MSKLEAK 

PC. NAA 

PC.OHC 

PC. PF.LEAK 


TYPE 


DIMENSION       MCDE 


GICBAL 
GLOBAL 
GICBAL 
GIC3AL 
GLCBAL 
GLCBAL 
GLOBAL 
GLG3AL 
GICBAL 
GLCBAL 
GICBAL 
GLCBAL 
GLCBAL 
GLCBAL 
GICBAL 
GICBAL 
GICBAL 
GICBAL 
GLCBAL 
GLOBAL 
GICBAL 


V  ARIABLE 

V  ARIABLE 
VARIABLE 
VARIABLE 

V  ARIABLE 
VARIABLE 
VARIABLE 
7  ARIABLE 
VARIABLE 

V  ARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
V ARIAELE 
VARIABLE 
7  ARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 

V  ARIABLE 


(2-D) 

REAL 

(3-D) 

REAL 

(4-D) 

HEAL 

(5-D) 

REAL 

(2-D) 

R  E  A  L 

(2-D) 

REAL 

(3-D) 

REAL 

(4-D) 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

(2-D) 

PEAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1  -D) 

REAL 

(2-D) 

REAL 
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2  •      Physical   Constants    and  C  har  a  c  t  e  r  1st  ic  s 


NAME  TYPE                                  DIMENSION       MODS 

ABS  GLOBAL    VARIABLE 

AG.AL.THPESH  GLOBAL    VARIABLE 

AG. DECAY  GLOBAL   VARIABLE 

AG. INHAL. FACTOR  GLOBAL    V ARI ABLE 

AG. PICKUP  GLOBAL    VARIABLE 

AL.MAX.DIST  GLOBAL    VARIABLE 

DCR  GLOBAL    V  ARIABLE 

DSP. RED  GLOBAL    VARIABLE 

MIN.A.CHEM  GLOBAL    VARIABLE 

MIN. O.CHE*  GLCE.AL    VARIABLE 

MULI.AG.EECON  GLOBAL    VARIABLE 

N. AGENT  GLC3AL    VARIABLE 

N.SIEE  GLOBAL    VARIABLE 

N.VEH.SYS. IYPE  G LCBA L    V ARI ABLE 

N.VEH.  WEN..  TYPE  GLCEAL    VARIABLE 

NAA. FACTOR  GLOBAL    VARIABLE 

PF.MAX  GLOBAL    VARIABLE 

SKIN  GLOBAL    VARIABLE 

SW. BREATHING  GLOBAL    VARIABLE 

SH.  NEC. FILTER  GLOBAL    VARIABLE 


(1-D) 

REAL 

(2-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

PEAL 

(3-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

(1-D) 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

(1-D) 

REAL 

(2-D) 

REAL 

(2-D) 

REAL 

(3-D) 

REAL 

(6-D) 

REAL 
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